u_g esa funcion le va a mostar 5 resultados, no 6 (quizas me equivoque)
Dim mostrarHasta, itera
mostrarHasta = 6
itera = 1 <--------ESTE TENDRIA QUE SER CERO
do while not rs.EOF
'Imprimes registro
itera = itera + 1 <--------- ACA SE HACEN 2 LA PRIMERA VEZ
if itera = mostrarHasta then
rs.Close
exit do
end if
itera = itera + 1 <-----SINO TENDRIA QUE PONER LA LINEA ACA PARA DEJAR ITERA=1 Y NO ITERA=0 ARRIBA
rs.MoveNext
loop
Osea... primero imprimes y luego avanzas
