Tambahkan reference Microsoft ActiveX Data Object pada project anda Kemudian lengkapi dengan kode berikut :

Private Sub Form_Load()

Dim DBcon As New ADODB.Connection

Dim DBRec As New ADODB.Recordset

Dim ConStr As String

ConStr = "Provider=Microsoft.ACE.OLEDB.12.0; " & _

" Data Source=E:\VB sample\to2007\DB.accdb;Persist Security Info=False"

DBcon.Open ConStr

MsgBox "Koneksi Sukses"

End Sub

Provider Acces menggunakan Microsoft ACE yang sudah include bila anda menginstalkan aplikasi Microsoft Office 2007, Apabila komputer anda tidak terinstall Microsoft Office 2007, insatallkan driver enginenya download di http://www.microsoft.com/download/ gratis!! Sumber artikel