Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Use OLEDB to connect with mdb file

'Microsoft ActiveX Data Objects Recordset 2.7 Library Sub ConnectionExample1()    Dim conn As ADODB.Connection    Set conn = New ADODB.Connection    With conn      .Provider = "Microsoft.Jet.OLEDB.4.0;"      .ConnectionString = "Data Source=" & _         CurrentProject.Path & "\mydb.mdb"    End With    conn.Open    MsgBox "Connection was opened"    conn.Close    Set conn = Nothing    MsgBox "Connection was closed" End Sub