como puedo ir a un registro concreto de un recordset

[u_goldman]

Que tal rompiendo el ciclo?

Código:

Dim mostrarHasta, itera
mostrarHasta = 6
itera = 1

do while not rs.EOF 
  'Imprimes registro
   itera = itera + 1
   if itera = mostrarHasta then
     rs.Close
     exit do
   end if
   rs.MoveNext
loop

Saludos