Hola
Para hacerlo con una select casi lo has respondido tu mismo, creas un recordset con la consulta:
Código:
Dim RegCount as New ADODC.Recordset
RegCount.Open "Select(*) from Tabla1", bd, adOpenDynamic,adLockReadOnly
Y para pasar el valor obtenido a una variable:
Código:
lngTotReg=regcount.Fields(0).Value
Lo que no se es si de esta forma irá mas rápido.
--Saludos--