Source code berikut untuk mengoneksikan Visual Basic 6.0 dengan database Access. Agar aplikasi bisa di running dimana saja, dengan menggunakan fungsi App.Path, dan database Access disimpan dalam satu folder yang sama dengan project Visual Basic 6.0 nya.

Buat 1 project dengan :
1 Form
1 Module

Copy source code berikut pada Form :

Private Sub Form_Load()
koneksi 'pemanggilankoneksi database

Adodc1.ConnectionString = Con.ConnectionString
Adodc1.RecordSource = "select * from contoh"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Copy source code berikut pada Module :

Public Con As New ADODB.Connection

Public Sub koneksi()
On Error GoTo konekErr

If Con.State = 1 Then Con.Close

'sesuaikan database .mdbnyadengan database anda
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db_tes.mdb;Persist Security Info=False"
Exit Sub

konekErr:
MsgBox "Error Connected the database !Error from : " &Err.Description, vbCritical, "Peringatan"
End Sub

DOWNLOAD Full Source Project