si estas usando un data puedes hacerlo asi:
data1.databasename=rutadetubase
data1.refresh
data1.recordsource="Tabla"
data1.refresh
if data1.recordset.eof then
'significa que no hay registros en la tabla
x=1
else
data1.recordset.movelast
x=data1.recordcount
end if
