To the point… Yang dimaksud dengan menggunakan objek adalah menggunakan
adodc. Ikuti langkahnya step by step pada redaksi dan gambar di bawah ini.

1. Buatlah folder khusus sebagai tempat menyimpan database, form dan project.
2. Klik menu start
3. All programs
4. Microsoft office
5. Microsoft office access 2003
6. Klik menu file > new (atau klik icon new, atau klik create new file)
7. Buka dan aktifkan folder yang telah dibuat di langkah 1
8. Tulis nama database misalnya DBMaster
9. Klik create
10. Double klik create table in design view
11. Buatlah struktur tabel sebagai berikut

12. Klik kanan field kodebrg
13. Pilih primary key (atau klik icon Primary Key Gambar kunci warna kuning)
14. Simpan struktur tabel > Klik ikon save (gambar disket)
15. Tulis nama tabel (barang)
16. Klik OK
17. Isilah tabel barang secara manual dengan data sebagai berikut

PROSES PEMBUATAN FOLDER, DATABASE, TABEL DAN INDEX
SELESAI
SEKARANG MULAILAH BEKERJA DENGAN VB
 

18. Aktifkan VB
19. Pilih standard exe
20. Klik OK
21. Tambahkan komponen adodc dan datagrid caranya
22. Klik menu project
23. Pilih components
24. Atau tekan tombol CTRL + T
25. Atau klik kanan ToolBox > Lalu pilih components
26. Aktifkan dua checkbox seperti gambar di bawah ini
27. Klik apply
28. Klik OK (close)
29. Tambahkan adodc dan datagrid ke dalam form
30. Caranya cukup dengan melakukan klik pada objek adodc di toolbox kemudian drag     dalam form
31. Klik datagrid di toolbox kemudian drag dalam form
32. Hasilnya sebagai berikut
33. Klik kanan adodc1
34. Pilih adodc properties
35. Pilih use connection string
36. Klik build
37. Pilih microsoft jet 4.0 OLE DB Provider
38. Klik next
39. Klik browse (ellips) di sebelah kanan kotak 1 Select or ….
40. Cari dan pilih database DBMaster.mdb yang telah dibuat sebelumnya
41. Klik open
42. Klik test connection
43. Jika muncul pesan error seperti ini, artinya database sedang dibuka
44. pindah ke Access, Tutup database, lalu klik lagi test connection
45. Sampai muncul pesan sukses seperti gambar di bawah ini
46. Klik OK
47. Klik OK sekali lagi
48. Klik tabulasi recordsource
49. Klik Button Command Type
50. Pilih 2 - adCmdTable
51. Klik button Table Or Stored Procedur Name
52. Pilih Tabel “Barang”
53. Klik apply
54. Klik OK
55. Klik datagrid1
56. Hubungkan ke adodc1 pada properti datasource
57. Simpan form dan project di folder yang telah dibuat di langkah 1
58. Jalankan program dan hasilnya seperti gambar di bawah ini

Jadi driver untuk objek adodc adalah sebagai berikut:
Provider=microsoft.jet.oledb.4.0;data source=f:\e-boOK VB\data
VB\DBMaster.mdb;persist security info=false

Anda dapat melihatnya (bahkan meng-copy-nya untuk keperluan koneksi database
selanjutnya) di properti connectionstring

Cara koneksi ini dapat dimanfaatkan dalam aplikasi program anda, contohnya adalah
sebagai berikut:
Buatlah form dengan sebuah combobox
Kemudian ketiklah koding berikut ini
'definisikan string koneksi
Dim conn As New ADODB.Connection
'definisikan recordset
Dim RSBarang As ADODB.Recordset
Private Sub Form_Load()
'buat koneksi baruke database
Set conn = New ADODB.Connection
'buat recordset baru untuk membaca tabel barang
Set RSBarang = New ADODB.Recordset
'buka koneksi database dengan model DSN
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\E-Book
VB\Data VB\DBMaster.mdb;Persist Security Info=False"
'baca tabel barang berulang-ulang
RSBarang.Open "select * from barang", conn
'bersihkan dulu isi Combo1
Combo1.Clear
'baca isi tabel barang
Do Until RSBarang.EOF
'tampilkan kode dan nama barang di Combo1
Combo1.AddItem RSBarang!kodebrg & Space(5) & RSBarang!namabrg
RSBarang.MoveNext
Loop
End Sub
Jalankan program dan lihat hasilnya
Dengan cara ini anda tidak memerlukan objek adodc lagi
Catatan :
Cara koneksi model objek ini tidak aman, karena jika database dipindahkan posisinya
ke folder lain maka program akan error karena database tidak ditemukan. Alasan
utamanya karena koneksi ke database menuju ke :
F:\E-Book VB\Data VB\DBMaster
Sementara posisi database telah dipindahkan ke folder lain. Cara yang cukup aman
adalah dengan menggunakan APP.PATH. caranya adalah dengan mengganti F:\EBook
VB\Data VB\DBMaster dengan koding sebagai berikut :
“ & APP.PATH & “\DBMASTER.MDB
Jadi koding lengkapnya adalah sebagai berikut:
'definisikan string koneksi
Dim conn As New ADODB.Connection
'definisikan recordset
Dim RSBarang As ADODB.Recordset
Private Sub Form_Load()
'buat koneksi baruke database
Set conn = New ADODB.Connection
'buat recordset baru untuk membaca tabel barang
Set RSBarang = New ADODB.Recordset
'buka koneksi database dengan model DSN
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & App.Path & "\DBMaster.mdb;Persist Security
Info=False"
'baca tabel barang berulang-ulang
RSBarang.Open "select * from barang", conn
'bersihkan dulu isi Combo1
Combo1.Clear
'baca isi tabel barang
Do Until RSBarang.EOF
'tampilkan kode dan nama barang di Combo1
Combo1.AddItem RSBarang!kodebrg & Space(5) & RSBarang!namabrg
RSBarang.MoveNext
Loop
End Sub