Cara Koneksi Database Access .accdb

Pada Tutorial Gratis VB 6.0 kali ini akan dibahas mengenai : Cara Koneksi Database Access .accdb. kini saatnya kita akan mempraktikan bagaimana cara mengkoneksikan database access .acdb pada VB 6.0

Berikut langkahnya :
Buatlah database dengan nama : DBJNM.accdb
Kemudian buat tabel dengan nama : TBL_SUPPLIER
Design TBL_SUPPLIER adalah sebagai berikut :

Jika sudah,
Buka Visual Basic 6.0
Design Form1 seperti gambar dibawah ini :

Jika sudah Klik Project - Reference

Checklist seperti gambar diatas
Klik OK

Jika sudah masukan koding dibawah ini :

 
Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DBJNM.accdb"
End Sub
Private Sub Form_Load()
    Call BukaDB
    Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\DBJNM.accdb; "
    Adodc1.RecordSource = "TBL_SUPPLIER"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub