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