Recorrer registros de una tabla

[javi_d]

Buenas!!! Necesito recorrer una tabla donde tengo registros que mando a imprimir
a un datareport dependiendo del numero de cuotas "NCuotaMov". no se que es lo que estoy haciendo mal pero no puedo lograr que ande.

Es decir debo ordenarlos por "CodMov" codigo de movimiento(Clave de registro), y luedo dependiendo el numero de cuotas "NCuotaMov" mando a imprimir. es decir si es NCuotaMov=2mando a impirmir con DrtChequera2 y asi sucesivamente...

Aca les dejo el codigo que estoy usando...
si tienen otra mejor idea de como recorrer todos los registros de la tabla se los agradeceria mucho desde ya muchas gracias!!!
Espero su respuesta!!!


Dim Ncuotas As Integer
Dim Comprobar

Comprobar = False
If BDMovimientoMercTemp.rsMovimiento.RecordCount > 0 Then
BDMovimientoMercTemp.rsMovimiento.MoveFirst
Do While Not BDMovimientoMercTemp.rsMovimiento.EOF

Ncuotas = BDMovimientoMercTemp.rsMovimiento.Fields!NCuotaMov .Value
if Ncuotas = 0 Then
DrtChequera1.PrintReport
Else
If Ncuotas = 2 Then
DrtChequera2.PrintReport
end if
end if

if BDMovimientoMercTemp.rsMovimiento.EOF = False Then
Comprobar = True
Exit Do
Else
BDMovimientoMercTemp.rsMovimiento.Sort = "CodMov"
end If
BDMovimientoMercTemp.rsMovimiento.MoveNext
Loop
End If