Dim oConn As ADODB.Connection
 
        ' Instanzierung des Objekts
        oConn = New ADODB.Connection
 
        ' Connection-String festlegen
        Dim sConn As String
        Dim sServer As String
        Dim sUserName As String
        Dim sPassword As String
        Dim sDBName As String
 
        ' Server Hostname (oder IP)
        sServer = "Adresse"
 
        ' Benutzerdaten
        sUserName = "HarryBenutzer"
        sPassword = "1234567"
 
        ' Datenbank-Name
        sDBName = "DBName"
 
        sConn = "Provider=MSDASQL;Driver=MySQL;" & "Server=" & sServer & _
          ";Database=" & sDBName
 
        ' Connection öffnen
        oConn.Open(sConn, sUserName, sPassword)
 
    End Sub