Pastikan teman-teman sudah membuat database Accessnya dan telah menyimpan di root directori dimana project teman-teman tersimpan. Dan saya sarankan teman-teman agar membuat database Access dengan extensi 2003.

Selanjutnya memasukan Reference Data Objects, caranya : Menu Project -> Reference kemudian centang pada Microsoft ActiveX Data Objects 2.8 Library dan Kilk OK!

Selanjutnya seperti biasa untuk koneksi ke database kita buat dimodul, caranya : Menu Project -> Add Module pada form yang terbuka pilih Module dan klik Open Kemudian anda bisa ganti nama modulnya di properties.

Kemudin copy/paste kode berikut ke module tersebut !

Option Explicit
Dim CONN As New ADODB.Connection

Public Sub ConnectDb()
 On Error GoTo gagal:
 Set Conn = New ADODB.Connection
     Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=" & App.Path & "db.mdb;" _
            & "Jet OLEDB:Database Password=''"
     Conn.CursorLocation = adUseClient
 Exit Sub
gagal:
 MsgBox "Gagal terhubung ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"
End Sub

Sehingga jika anda ingin mengkoneksikan Aplikasi teman-teman ke databasenya tinggal memanggil Call ConnectDb di form manapun untuk melakukan crud.