Public cnDatenbank    As ADODB.Connection
 
    'SQL öffnen
 
    Set cnDatenbank = New ADODB.Connection
 
    cnDatenbank.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=" ";" _
                & "DATABASE=  ;" _
                & "UID=" ";" _
                & "Password=" ";" _
                & "OPTION=16384"
 
    cnDatenbank.CursorLocation = adUseClient
    cnDatenbank.Open