------- schnipp -----
' Connection erstellen
    Set cn = New ADODB.Connection
    Dim strFName As String
        With cn
        .CursorLocation = adUseClient
        .Provider = "microsoft.jet.oledb.4.0"
        .Properties("Data Source") = strFName
        .Properties( "Jet OLEDB : Database Password" ) = "geheim"
        .Properties( "Persist Security Info" ) = False
        .Open
    End With
------- schnipp -----