Obtener la cantidad de registros de un Recordset

[ReViJa]

Otra opción seria:

Código:

conn.Open "Driver={MySQL ODBC 3.51 Driver};" _
                           & "user=root;" _
                           & "password=jepa17;" _
                           & "server=localhost;" _
                           & "database=fenix;"  
rs.Open "SELECT COUNT(*) AS cuenta  fichas ORDER BY ci", conn, adOpenStatic, adLockOptimistic

MsgBox rs.Fields("cuenta").Value
rs.Close

Espero que te sirva.
Saludos.