Public Sub DBOeffnen()
    Set dbConnection = New Connection
    'Datenbank öffnen
    dbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
App.Path & "Biblio.mdb;"
    'Tabellennamen strSQL zuweisen
    strSQL = "SELECT * FROM Authors"  Das ist ein SQL String!
End Sub
 
 
Und ich weiße den Inhalt dem DataGrid folgendermaßen zu:
 
Public Sub DataGridAnzeigen()
    'Recordset aktivieren
    Set rsData = New Recordset
    rsData.CursorLocation = adUseClient
    rsData.CursorType = adOpenStatic
    rsData.Open strSQL, dbConnection, adOpenForwardOnly, adLockReadOnly
    'DataGrid Inhalt zuweisen
    Set frmMain.DataGrid.DataSource = rsData
    lngAnzahlDatensaetze = rsData.RecordCount
End Sub