Set oConn = New ADODB.Connection
 
  'Server Hostname (oder IP)
  sServer = "xxxxx"
 
  ' Benutzerdaten
  sUserName = "xxxxx"
  sPassword = "xxxxx"
 
  ' Datenbank-Name
  sDBName = "xxxxx"
 
  sConn = "Provider=MSDASQL;Driver=MySQL ODBC 3.51 Driver;" & _
          "Server=" & sServer & ";Database=" & sDBName
 
  ' Connection öffnen
  oConn.Open sConn, sUserName, sPassword