Crystal Report - Novato en APUROS

Estoy corrigiendo una aplicación hecha en VB6 con CR4.5.
Hay un listado que toma un campo ole(con foto cargada en binario) desde una tabla de access2000, y me muestra el listado sin problemas.
Este listado se encuentra dentro de un bucle y se abre según cantidad de temas dentro de una materia de exámen

Do While Not impresion.Recordset.EOF
...
cr2.ReportFileName = App.Path & "\atlas.rpt"
cr2.DataFiles(0) = Path_Database
cr2.SQLQuery = "SELECT * FROM dibujos_rpt"
cr2.Formulas(0) = "_modulo='" & impresion.Recordset("modulo") & "'"
cr2.Formulas(1) = "_d_modulo='" & Descr_Modulo & "'"
cr2.Formulas(2) = "_materia='" & cmbmateria & "'"
cr2.Formulas(3) = "_examen='" & txtcodigo & "'"
cr2.Formulas(4) = "_evaluado='" & cmdevaluado & "'"
cr2.Formulas(5) = "_contratista='" & contratista & "'"
cr2.Destination = crptToWindow
cr2.Action = 1
...
Loop

La cuestion es que cuando voy a cerrar el form se me cuelga la aplicacion, ya sea ejutando en modo diseño o corriendo el .exe (problema con la pila de llamadas=demasiados Sub-Function-Call, etc).
He hecho todo tipo de prueba, y he llegado a la conclusion que es cuando se habre el reporte.

Gracias de antemano