RecordCount?

[VHid@lgo]

mira pruevalo asi, te mostraba -1 porque no te estaba abriendo e recorset

Public cn As ADODB.Connection
Public rs1 As ADODB.Recordset

Public Sub abrir()
On Error GoTo Mensaje
Set cn = New ADODB.Connection
Path = App.Path + "\data.mdb"
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Path & ""
Exit Sub
Mensaje:
MsgBox "No se establecio la conexión con la Base de Datos", 16, "ATENCION"
End Sub

Private Sub Command1_Click()
abrir
Set rs1 = New ADODB.Recordset
If rs1.State = adStateOpen Then
rs1.Close
End If
rs1.Open "SELECT count(campo) FROM tabla", cn
End Sub