_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de