La proprietà RecordCount non riporta sempre il numero esatto di record; è uguale a 0 se il recordset non contiene record, è unguale a 1 se il recordset contiene 1 o più record. Per conoscere il numero esatto di record, è necessario muoversi fino all'ultimo record:
codice:
Dim rs As Recordset
Dim db As Database

Set db = OperDatabase("C:/test.mdb")
Set rs = db.OpenRecordset("Tabella", dbOpenDynaset)

rs.MoveLast
rs.MoveFirst

Debug.Print rs.RecordCount