Public cnDatenbank    As ADODB.Connection
 
    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