Visual Basic - recordset para crystal

Hola a todos, cómo están??

Mi consulta es la siguiente:

Estoy generando unas facturas con crystal report clasificados por mes, año y distribuidor. Hasta ahí todo bien, el problema es que una vez yo introduzca por teclado el mes y el año, debo sacar un informe por cada distribuidor.

Despues de algún que otro intento, le paso los parametros al selectionformula mediante una conexión RDO, con un openresulset (y una select con distinct ID_DIST, que funciona perfectamente en Oracle) obtengo el informe perfecto, pero sólo soy capaz de sacar el primer distribuidor del recordset. Le he puesto el movenext, y alguna que otra cosa más, pero pasa d mi, sólo saca el primero.

Alguien me podria pasar un codigo más o menos acoplable a mi proyecto?? Muchas gracias.


'Realizamos la conexión a la BD y procesamos la información

Set conCARGOS = New RDO.rdoConnection
With conCARGOS
.Connect = "DSN=Conexion;UID=;PWD=;"
.EstablishConnection rdDriverNoPrompt
End With

Set conRESULT = conCARGOS.OpenResultSet("SELECT DISTINCT (ID_DIST)" _
& "FROM DI_FACTURAS WHERE MES_FACT = '" & MES_FACTURA & "' AND " _
& "ANO_FACT = '" & ANO_FACTURA & "' ORDER BY ID_DIST ASC", rdOpenForwardOnly + rdOpenStatic, rdConcurReadOnly)

With conRESULT
If .EOF Then
vDIST = ""
Else
'Do
If IsNull(.rdoColumns("ID_DIST").Value) Then
vDIST = ""
Else
vDIST = CStr(.rdoColumns("ID_DIST").Value)
'.MoveNext
End If
'Loop Whil