Rather than trying to count how many records you have in a table for each table you have you can access your tables through the TableDef
option. This will allow you to build your query faster than querying each table as a means of seeing whether it exists or not. It does require your tables to be currently linked though.
Dim db as DAO.Database
Dim wrk as DAO.Workspace
Dim tdf as DAO.TableDef
Set wrk = DBEngine.Workspaces(0)
Set db = wrk.OpenDatabase(databasePath, False, False, connection type/password)
For Each tdf in db.TableDefs
'Add it to your query string here.
Next
db.close
wrk.close
Set tdf = Nothing
Set db = Nothing
Set wrk = Nothing