Database VB sederhana dengan MS. Access

Ass....
hay sob, disini saya akan memberitahukan sedikit ilmu saya.
disini saya akan membuat aplikasi sederhana menggunakan VB dengan database Ms. Access.

Untuk Membuat Sebuah aplikasi vb sederhana dengan database, yang diperlukan adalah sebuah database Ms. Acces.
Disini Saya Akan Membuat sebuah aplikasi Sederhana, Yaitu Aplikasi input siswa.
dimana di dalam database sekolah ada sebuah tabel siswa sekolah.mdb simpan saja di "D:\sekolah\sekolah.mdb" oh ya, sebelum menghubungkan database dengan vb, kita harus meng convert database yang tadi kita buat ke dalam format access 97.

lihat versi office anda, jika bukan versi 1997 ( office 2000 atau XP ),
maka konversikan ke 1997 format, caranya :
• Klik Tools, Database utilities, Convert database, to Access 97 format.

simpan di folder yang sama, beri nama sekolah97.mdb, klik ok, kini tersedia
database sekolah97.mdb yang akan kita gunakan nantinya.

2. Buat sebuah tabel di database sekolah, simpan dengan nama "siswa", isikan field pada tabel siswa yaitu nis, nama, kelas, alamat . buat Primary key pada field nis berikut gambarnya :

3. Jika Sudah, Sekarang kita mulai bekerja dengan VB, buka Microsoft Visual Basic 6.0. Pilih Standar Exe pada pilihan tampilan pertama VB.

4. Buat 4 buah textbox, 4 buah Label, 1 buah data1, dan 3 buah command button.

klik pada dbgrid1, lihat properties cari datasource, pilih data1. karena kita akan mengambil source database dari data1 tersebut. berikut gambarnya :

5. tambahan microsoft data bound grid, toolbar tersebut tidak secara otomatis tampil di toolbar. untuk menampilkan toolbar tersebut, klik menu Project, lalu pilih Components. cari

Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close.

6. untuk kode dari program, copy string dibawah ini....

Private Sub Command1_Click()

Data1.Recordset.AddNew

Data1.Recordset("nis") = Text1.Text

Data1.Recordset("nama") = Text2.Text

Data1.Recordset("kelas") = Text3.Text

Data1.Recordset("alamat") = Text4.Text

Data1.Recordset.UpdateEnd Sub

Private Sub Command2_Click()

Data1.Recordset.EditData1.Recordset("nis") = Text1.Text

Data1.Recordset("nama") = Text2.Text

Data1.Recordset("kelas") = Text3.Text

Data1.Recordset("alamat") = Text4.Text

Data1.Recordset.UpdateEnd Sub

Private Sub Command3_Click()

Data1.Recordset.DeleteData1.Refresh

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\sekolah97.mdb"

Data1.RecordSource = "siswa"

End Sub

jika sudah, run program anda. apabila berhasil maka anda bisa menambah, menghapus, atau edit data sesuka anda.