Sub OpenDB(sSQL As String)
    On Error GoTo Fehler
 
    Dim sConn As String
    Dim sServer, sPort, sUser, sPWD, sDatabase As String
 
    sServer = "dsfdfsfd"
    sPort = "dfsdfsdf"
    sUser = "adfsdfsdfsdfdsfdsfsdf"
    sPWD = "dsfsdfdfsddfdsf"
    sDatabase = "sdfsdfdsfdsgfsdgdsg"
 
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
 
    sConn = "Driver={MySQL ODBC 3.51 Driver};Server=" + sServer + ";Port=" + _
      sPort + ";Database=" + sDatabase + ";User=" + sUser + ";Password=" + sPWD _
      + ";Option=3;"
 
    conn.Open sConn
 
    rs.Open sSQL, conn, adOpenDynamic, adLockOptimistic
 
    Exit Sub
 
Fehler:
    MsgBox Err.Description, vbCritical, "Fehler"
    Exit Sub
End Sub