Option Explicit
 
    Private WithEvents Cnn as ADODB.Connection
    Private WithEvents RS As ADODB.Recordset
 
Public Sub AnySub()
    Dim strDBFileName As String
    Dim strDBPwd As String
    Dim strSQL As String
 
    ' vollst. Pfad zur Datenbankdatei *.mdb
    strDBFileName = "C:\Verzeichnis\DB.mdb"
 
    ' falls die DB mit einem Datenbankkennwort geschützt ist.
    strDBPwd = "DeinDBKennwort"
 
    ' Instanz eines Connectionobjektes erstellen
    Set Cnn = New ADODB.Connection
 
    ' *** Connection öffnen
    With Cnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source").Value = strDBFileName
        .CursorLocation = adUseClient
        .Mode = adModeShareDenyNone
        .Open
    End With