Option Explicit
 
Private Sub Form_Load() 'Deklaration der DB-Objektvarialen
  Dim oConn As ADODB.Connection 'Connection-Objekt
  Set oConn = New ADODB.Connection 'Instanzierung des Objekts
 
  'Connection-String festlegen
  Dim sConn As String
  Dim sServer As String
  Dim sUserName As String
  Dim sPassword As String
  Dim sDBName As String
 
  sServer = "localhost" 'Server Hostname (oder IP)
  sUserName = "httpd"
  sPassword = ""    'Benutzerdaten
  sDBName = "mysql" 'Datenbank-Name
 
  sConn = "Provider=MSDASQL;Driver=MySQL;" & "Server=" & sServer & ";Database=" _
    & sDBName
 
  oConn.Open sConn, sUserName, sPassword 'Connection öffnen
End Sub

 Set sOnn = New ADODB.Connection
 
    oConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=" &  sServer & ";" _
                & "DATABASE=" & sDBName & ";" _
                & "UID=" & SUserName &  ";" _
                & "Password=" & sPassword & ";" _
                & "OPTION=16384"
 
    oConn.CursorLocation = adUseClient
    oConn.ConnectionTimeout = 0
    oConn.Open