Sub MakeConnectionExample()
Dim conn As ADODB.Connection
On Error GoTo ErrHandler
Set conn = New ADODB.Connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0;"
conn.ConnectionString = "Data Source=" & CurrentProject.Path &"\mydb.mdb"
conn.Open
If conn.State = adStateOpen Then
MsgBox "Connected!", vbOKOnly
conn.Close
Else
MsgBox "Not connected!", vbOKCancel
End If
Set conn = Nothing
Exit Sub
ErrHandler:
MsgBox "Could not connect to database. " & Err.Description, _
vbOKOnly
End Sub