A Simple Connection Example : Microsoft Jet « Access « VBA / Excel / Access / Word

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

A Simple Connection Example

 
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 

 

Related examples in the same category