Koneksi database dengan VB 6 menggunakan kode di adodc

Disini saya akan memberikan contoh bagaiman membuat koneksi antara database dengan visual basic.
Pertama kita buka aplikasi visual basic 6 kita.

Setelah itu tambahkan komponen ADODC dan DATAGRID. Caranya :
1. Klik kanan pada tool box atau tekan Ctrl+T.
2. kemudian pada controls, centang pilihan "Microsoft ADO Data Control 6.0 (OLEDB)" dan "Microsoft DataGrid Control 6.0 (OLEDB)".
3. tekan OK.

Setelah menambahkan kedua komponen tadi selanjutnya kita akan membuat database menggunakan Visual Data Manager atau sering disebut VisData. Caranya :
1. Klik menu Add-Ins pilih Visual Data Manager...

2. Klik File - New - Microsoft Access - Version 7.0 MDB
3. Simpan dengan nama latihan.mdb
4. Buatlah tabel dengan cara klik kanan New Table. cara membuat tabel di visdata
ini tabel yang telah saya buat.

Selanjutnya buatlah form seperti berikut:
1. Tambahkan DataGrid
2. Tambahkan Adodc

Ketikan kode berikut :

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\latihan.mdb;Persist Security Info=False"

Adodc1.RecordSource = "select*from Buku"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
End Sub

Jalankan program maka hasilnya akan seperti ini :