Visual Basic - Necesito contar los Registros de una base (ado)

Quisiera saber si alguien me puede decir como hacer un contador de registros para una base de datos (ado). No se si hay alguna funcion que me de el total de registros de una base de datos, agredeceria que me respondieran a la brevedad. Gracias

Si abris una base con un objeto recordset hay una funcion que te devuelve el total de registros:
Dim rec as Recordset
set rec= dbbase.openrecordset("Mitabla",dbopentable)
rec.movefirst
total = rec.Recordcount

Este codigo solo te funciona si es Access y estan usando la biblioteca de DAO.
Si quieres hacerlo con ADO debes crear un cursor del lado del cliente y estatic. Seria algo como .
Dim lngRecs As Long
Set rs = new ADODB.Recordset
rs.Open "TuSelect", conn, adOpenStatic, adLockOptimistic
lngRecs = 0
if Not rs.Bof And rs.Eof Then
rs.MoveLast
lngRecs = rs.RecordCount
rs.MoveFirst
End If
....

Tambien puedes hacer un select count, asi
rs.Open "SELECT COUNT(´) FROM TuTabla", conn, adOpenStatic, adLockReadOnly
lngRecs = rs.Fields(0)
rs.Close: Set rs = Nothing

Saludos

Ahora este proceso debes repetirlo por cada tabla que se encuentra en la Base de Datos. Si en realidad lo que quieres es obtener el número total de registros de todas las tablas de la Base de Datos.

Base de Datos ---> grupo de objetos que tienen información
Tabla ---> Objeto que contiene información básica para el funcionamiento de una aplicacion