Cara Membuat Koneksi Visual Basic dengan Ms Acces

Cara membuat koneksi vb dengan acces cukup mudah, silahkan ikuti cara seperti di bawah ini :

• Buka Visual basic 6 yang sudah terinstal di komputer anda
• Pilih Standard exe

• Buat 1 form dan 1 modul untuk koneksi
• klik kanan pada tombol2 > pilih components

• Trus cari file "Microsoft ado data control 6 ( OLEDB )" 
• Tekan Ok

• pada tambahkan OLEDB tadipada form
• klik kanan object tersebut "OLEDB properties"
• klik tombol build 

•  cari koneksi "microsoft jet 4 oledb" (khusus dt base mdb)

• untuk accdb ada caranya tersendiri
• klik next > Cari file database mdb anda

• Klik tobol tes koneksi untuk memastikan agar koneksi sesuai

• stelah koneksi sukses, selanjutnya copy paste koneksi tadi yang ada di sebelah tombol build ke modul yang sudah di siapkan
• Ketikkan coding seperti dibawah ini :

Public Con As New ADODB.Connection Public rs As New ADODB.Recordset
Sub bukakoneksi()If Con.State = adStateOpen Then Con.Close
'tanpa password :Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\DATA BASE\dbperpustakaan1.accdb;Persist Security Info=False"'tulisan bercetak biru untuk mengetahui file berada meskipun dipindah2.
'dengan password : Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DATA BASE\dbperpustakaan1.accdb;MS access; pwd=myprojec"'tulisan bercetak biru untuk mengetahui file berada meskipun dipindah2.
 MsgBox "Koneksi data sukses.", vbInformationEnd Sub