saber cuantos registros tiene una tabla

Saludos..
Para saber cuantos registros hay en un tabla realizo lo sgt:

Private RgHis1 As New ADODB.Recordset
Dim Val1 as Long

Private Sub Form_Load()

RgHis1.Open "hiscli",BD,
adOpenForwardOnly, adLockReadOnly
Val1 = RgHis1.RecordCount
Set RgHis1 = Nothing
End Sub

pero como la tabla posee mas de 190 000
registros, y sigue aumentando diariamente, demora unos 20 segundos aproximadamente.
Existe alguna otra forma de saber cuantos registros tiene una tabla.
Muchas gracias
Atentamente
Fredy Mendoza

Gracias ya proble esta opcion y de verdad si es mas rapida que el recordcount, pero ahora mi inconveniente esta en como capturo ese resultado. Mi codigo es asi:

Private RgHis1 As New ADODB.Recordset
Dim Val1, Val2 As Long

Private Sub Form_Load()
Val1 = 100
Dim SQL As String
adOpenForwardOnly, adLockReadOnly
Dim SQL, SQL2 As String
SQL = "select top " & Val1 & ", * from hiscli"
RgHis1.Open SQL, BD, adOpenForwardOnly, adLockReadOnly
Set DataGrid1.DataSource = RgHis1
SQL2 = "select count(*) as total from hiscli"
BD.Execute SQL2
End Sub

Pero como capturo ese resultado ya que lo que deseaba hacer era:

VAL2=bd.execute SQL2

ya que lo que me intereza es capturar el resultado

Muy Bien. Me ha sido de gran utilidad