ASP - Bucles anidados

Hola buen día:

Tengo los siguientes bucles anidados:

Do While Not rsConsulta.Eof
nDocumento = rsConsulta("NroDcto")
nOtraMon = rsConsulta("OtraMon")
Do While Not rsConsulta.Eof And rsConsulta("NroDcto") = nDocumento
nProducto = rsConsulta("Producto")
nDescrip = rsConsulta("Descripcio")
nCanIni = 0
Do While Not rsConsulta.Eof And rsConsulta("NroDcto") = nDocumento And
rsConsulta("Producto") = nProducto
nCanIni = nCanIni + CInt(rsConsulta("CantOrig"))
rsConsulta.MoveNext
Loop
Loop
Loop

Pero me genera el siguiente mensaje de error: "Ocurrió una excepción" y me señala la línea donde comienza el bucle más interno.

Por favor alguien me puede indicar qué debo hacer en este caso.

Expreso mis agradecimientos por la colaboración prestada.

Luis Fernando López Duque

el rs está abierto y tal?? a mi me ha pasado xD