Set cnDatenbank = New ADODB.Connection
 
    cnDatenbank.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=;" _
                & "DATABASE=;" _
                & "UID=;" _
                & "Password=;" _
                & "OPTION=16384"
 
    cnDatenbank.CursorLocation = adUseClient
    cnDatenbank.ConnectionTimeout = 0
    cnDatenbank.Open
 
    Public Sel As ADODB.Recordset 'Das Hauptrecordset
 
    Set Sel = New ADODB.Recordset
 
    With Sel
        'Öffnen der Tabelle mit dem angegebenen SQL-String
        .Open SQL, cnDatenbank, adOpenDynamic, adLockOptimistic
    End With