Access - recordcount- contar registros

la consulta la abre bien pero no me dice el numero de registros, ¿como puedo saberlo?

Set rs = CreateObject("ADODB.RecordSet")
Set con = Application.CurrentProject.Connection
Consulta = "select * from TIPOINCIDENCIA" : rem TIPOINCIDENCIA ES EL NOMBRE DE LA TABLA
rs.Open Consulta, con, adOpenDynamic, adLockOptimistic
rs.MoveLast
rs.MoveFirst

RE = rs.RecordCount ; REM ESTO ME DA -1 EN VEZ DE EL NUMERO DE REGISTROS

rs.Close


Gracias anticipadas

CREA UN CAMPO DE TEXTO CON ORIGEN EN UN CAMPO DE LA TABLA Y EN PROPIEDADES - ORIGEN - LE COLOCAS =CUENTA ( [ TU CAMPO] ).

QUIQUE