Private Sub Form_Load()
' 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=mysql"
 
' Jetzt kann es losgehen...
' z.B. eine Abfrage erstellen...
oRS.Open "SELECT * FROM all_mvids", oConn
 
'MsgBox oRS("video_artist")
 
MsgBox oRS.RecordCount
 
 
End Sub