Sub Jet()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.3.51"
.ConnectionString = "data source=" & _
App.Path & "\sample.mdb"
.Mode = adModeRead
.Open
End With
MsgBox "Connected to " & conn.Provider, vbInformation
Set rst = New ADODB.Recordset
rst.Open "Customers", conn
MsgBox rst!CompanyName, vbInformation
rst.Close
Set rst = Nothing
End Sub