MS Access VBA DAO : Test Koneksi Ke Database

Option Compare Database

Public Sub VBADAO()

Dim DAM As String

Dim db As DAO.Database

Dim rst  As DAO.Recordset

Dim query As String

DAM = "VBA DAO"

'Open pointer to current database

Set db = CurrentDb()

Debug.Print DAM & ": Sucessfully connected to database. Data source name: " & vbNewLine & " "; db.Name


End Sub