Puedes hacerlo con una consulta.
select * from nombre_tabla
si no devuelve ninguna fila es que está vacía.
Para ello crea por ejemplo un recordset.
Ábrelo con la consulta anterior y si te da EOF desde el principio es que la tabla está vacía.
Dim rs as new ADODB:recordset
rs.connection = CurrentProject.connection
rs.open "select nombre_de_un_campo from nombre_tabla",, adOpenKeyset, adLockOptimistic
if rs.EOF then tabla_vacía
Saludos