To ge number the of records in a table, I use:
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Tabl1", dbOpenSnapshot)
If rst.RecordCount > 0 Then
rst.MoveLast '<-- this takes a long time (over 3,000,000 records)
With ADO, however, we can have:
Dim rst 'As ADO....
Set rst = ...
FYI: Table1 is in the current database not in a backend.
Could you please complete above few lines and make it work using ADO.