Private Sub Command1_Click()
' Connection-String festlegen
Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sDBName As String
Dim oConn As ADODB.Connection
 
' Instanzierung des Objekts
Set oConn = New ADODB.Connection
 
' Recordset-Objekt
Dim oRS As Recordset
 
' Recordset erstellen
Set oRS = New ADODB.Recordset
 
' Server Hostname (oder IP)
sServer = ""
 
' Benutzerdaten
sUserName = ""
sPassword = ""
 
' Datenbank-Name
sDBName = "brennbares"
 
sConn = "Provider=MSDASQL;Driver=MySQL ODBC 3.51 Driver;" & _
        "Server=" & sServer & ";Database=" & sDBName
 
' Connection öffnen
oConn.Open sConn, sUserName, sPassword
 
End Sub

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste