connect to JET : Microsoft Jet « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Microsoft Jet

connect to JET

 
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

 

Related examples in the same category