Private Sub Command1_Click()
' Connection-Objekt
Dim oConn As ADODB.Connection
 
' Instanzierung des Objekts
Set 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 = "192.168.0.40"
 
' Benutzerdaten
sUserName = ""
sPassword = ""
 
' Datenbank-Name
sDBName = ""
 
sConn = "Provider=MSDASQL;Driver=MySQL;" & _
        "Server=" & sServer & ";Database=" & sDBName
 
' Connection öffnen
 
oConn.Open sConn, sUserName, sPassword
oRS.Open "CREATE DATABASE database1", oConn
End Sub
 
Private Sub Command2_Click()
' Deklaration der DB-Objektvarialen
 
' Connection-Objekt
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
 
' Öffnen der ODBC Schnittstelle
' DSN ist der DataSourceName
oConn.Open "Provider=MSDASQL;DSN=test-mario"
 
'oRS.Open "CREATE TABLE artikel(artikel_nr int(11) auto_increment, artikel_bez" & _
  "TEXT,KEY artikel_nr (artikel_nr))", oConn
 
' Jetzt kann es losgehen...
' z.B. eine Abfrage erstellen...
oRS.Open "SELECT * FROM artikel", oConn
 
End Sub

Nichts ist umsonst!