Koneksi Database Access Dengan Visual Basic 6

Mungkin ada yang belum mengerahui bagaimana membuat koneksi ke Database Access dari VB6. Pertama kita buat Modul dahulu.

Option Explicit

Public adcConnect As Connection

Private Sub ConnectToDatabase()
   On Error GoTo LocalErr

   Set adcConnect = New ADODB.Connection

   adcConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_PARKIR.mdb;Persist Security Info=False"
   Exit Sub

LocalErr:
   Screen.MousePointer = vbDefault
   MsgBox Err.Number & Chr(13) & Err.Description, vbCritical + vbOKOnly, "Error Connection"
End Sub

DB_PARKIR.mdb adalah nama database yang dibuat dengan Access.  Selamat mencoba semoga berhasil.