AccessAbfrageADO()
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    'DB öffnen
    Set DB1 = OpenDatabase("D:\Daten\MeineDatenbank.mdb")
    strSQL = "SELECT* FROM qdfAbfrage1"   'qdfAbfrage1=Name der Accessabfrage
    Set rst = dbs.OpenRecordset(strSQL)
    rst.MoveLast
    MsgBox rst.RecordCount
    dbs.Close
End Sub