Creating a Connection Object : ADODB.Connection « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. ADODB.Connection

Creating a Connection Object

 
Sub CreateConnection()
    'Declare and instantiate the connection
    Dim cnn As ADODB.Connection
    Set cnn = New ADODB.Connection

    'Open the connection
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Persist Security Info=False;" & _
    "User ID=Admin;" & _
    "Data Source=" & CurrentProject.Path & _
        "\YourDb.accdb;"

    cnn.Close
    Set cnn = Nothing
End Sub

 

Related examples in the same category