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=supplierplanlokal"
 
' Jetzt kann es losgehen...
' z.B. eine Abfrage erstellen...
oRS.Open "SELECT * FROM hla_ankuendigung", oConn
 
txtAnzahl.Text = oRS.RecordCoun ' funktioniert nicht
 
End Sub