' 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=http://localhost/phpMyAdmin"
 
' Jetzt kann es losgehen...
' z.B. eine Abfrage erstellen...
oRS.Open "SELECT * FROM t_test", oConn