Cara konseksi ke Database

Source code berikut untuk mengoneksikan VB 6 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 VB nya.

Source code simpan di Module :

Public Conn As New ADODB.Connection

Public Sub koneksi()
On Error GoTo konekErr

If Conn.State = 1 Then Conn.Close

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

konekErr:
    MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"
End Sub

Untuk penggunaannya dengan Adodc dan DataGrid, seperti contoh berikut :

Private Sub Form_Load()
koneksi 'pemanggilan koneksi database

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