'Die Connection wird definiert
   Set adodbConnection = New ADODB.Connection
 
 
    adodbConnection.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=" & strServer _
            & ";PORT=" & strPort _
            & ";DATABASE=" & strDBName _
            & ";UID=" & strUsername _
            & ";PWD=" & strPassword _
            & ";OPTION=" & 8 + 2048 + 131072
 
   adodbConnection.Open