Eje!! que tal compañero aldo.... yo optimizo lo que tu haces:
Cita:
Iniciado por aldo1982 rs.Open "SELECT * FROM P_CUENTAS", Conex
do while not rs.eof
c = c + 1
rs.movenext
loop
msgbox "hay: " & c & " Registros"
rs.Close
rs.Open "SELECT count(*) FROM P_CUENTAS", Conex
msgbox "hay: " & rs.Field(0) & " Registros"
PRUEBALO
