Access: Anzahl Datensätze aller Tabellen abfragen

Mit dem folgenden SQL String können die Datensätze in allen Tabellen einer Datenbank abgefragt werden:
SELECT DISTINCTROW MSysObjects.Name,
CLng(DCount("*",[Name])) AS Anzahl
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "MSys*") AND
((MSysObjects.Type)=1 Or (MSysObjects.Type)=6));

Der String kann direkt in das SQL Fenster einer Abfrage kopiert werden. Natürlich funktionierts auch unter VBA.