Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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