Set cnDatenbank = New ADODB.Connection
cnDatenbank.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=" & start.Text2.Text & ";" _
                & "DATABASE=" & start.Combo1.Text & ";" _
                & "UID=" & start.Text3.Text & ";" _
                & "Password=" & start.Text4.Text & ";" _
                & "OPTION=16384"
 
cnDatenbank.CursorLocation = adUseClient
cnDatenbank.Open