Crystal Report - Cargar todos los registros al inicio

Hola a todos.

Vereis, tengo un problema que no se como resolver.
Tengo realizado un programa, que me muestra unos datos en un reporte, los datos estan en una base de datos de access en un directorio local.
Bien, esos datos, una vez que carga el reporte, deben ser eliminados de la base de datos, pues en esa base de datos se cargan mas datos de otros reportes.

El problema se me presenta en el evento DownloadFinished, en el cual tengo puesto que se abra el formulario, y que ademas elimine esos datos, pero ese evento ocurre cada vez que entras en una pagina, es decir, si avanzo o retrocedo en las paginas.

Mi pregunta es: ¿hay algun método para poder cargar todos los datos del reporte de todas las páginas y que de ese modo entre en el evento una sola vez?

El evento devuelve loadingType, en mi caso siempre me devuelve un 1, que se corresponde con LoadingPages.

Hay otro, LoadingTotaller, que devolveria un 2, y supongo que ese es el caso que yo necesito ¿pero como lo hago?

Gracias por todo.

*************************************************************************************
*aqui es el boton de imprimi con declaracion de variables y una conexion a la
*base de datos local donde despues de conectar limpio la tabla que uso como
*tabla para generar el reporte
**************************************************************************************

Private Sub btn_imprimir_Click()
Dim miformula, var_nombre_usuario, qry As Variant
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\aplicaciones\negocios\datos\publicidad\report.mdb;Mode=ReadWrite;Persist Security Info=False"
cn.Execute "delete * From balance_auditoria;"
cn.Close

****************************************************************************
*aqui hago un query para accesar la tabla vacia la cual tengo conectada
*con un adocontrol = puede ser una conexion a nivel de codigo
****************************************************************************
qry = "SELECT balance_auditoria.factura, balance_auditoria.linea, balance_auditoria.cod_art, balance_auditoria.cant_art, balance_auditoria.descripcion, balance_auditoria.precio_unit, balance_auditoria.precio_tot, balance_auditoria.impuesto, balance_auditoria.idfprograma, balance_auditoria.fingreso, balance_auditoria.cusuario "
qry = qry & "From balance_auditoria "
qry = qry & "ORDER BY balance_auditoria.fingreso;"
Me.Adolista.RecordSource = qry
Me.Adolista.Refresh

***********************************************************************************
aqui cargo la tabla con datos
**********************************************************************************
Me.Adotaquilla.Recordset.MoveFirst
Do While Not Me.Adotaquilla.Recordset.EOF
Me.Adolista.Recordset.AddNew
Me.Adolista.Recordset!factura = Me.Adotaquilla.Recordset!Nro_Cot
Me.Adolista.Recordset!linea = Me.Adotaquilla.Recordset!linea
Me.Adolista.Recordset!cod_art = Me.Adotaquilla.Recordset!cod_art
Me.Adolista.Recordset!cant_art = Me.Adotaquilla.Recordset!cant_art
Me.Adolista.Recordset!descripcion = Me.Adotaquilla.Recordset!descripcion
Me.Adolista.Recordset!precio_unit = Me.Adotaquilla.Recordset!prec_tot
Me.Adolista.Recordset!precio_tot = (Me.Adotaquilla.Recordset!cant_art * Me.Adotaquilla.Recordset!prec_tot)
Me.Adolista.Recordset!Impuesto = Me.Adotaquilla.Recordset!Impuesto
Me.Adolista.Recordset!idfprograma = Me.Adotaquilla.Recordset!idfprograma
Me.Adolista.Recordset!fingreso = Me.Adotaquilla.Recordset!fingreso
Me.Adolista.Recordset!cusuario = Me.Adotaquilla.Recordset!cusuario
Me.Adolista.Recordset.Update
Me.Adotaquilla.Recordset.MoveNext
Loop

********************************************************************************
* aqui ejecuto el crystal con el formulario que ya esta conectado a la tabla
*cargada con datos.
* puedes limpiear la tabla al inicio o al final del proceso, decicion tuya
********************************************************************************

miformula = "company='" & "EXTREME PLANET" & "'"
CrystalReport1.Formulas(0) = miformula

'If Me.Option_sort_name.Value = True Then
miformula = "ORDEN='" & "Fecha Hora" & "'"
'End If
'If Me.Option_sort_lastname.Value = True Then
' miformula = "ORDEN='" & "Apellido" & "'"
'End If
'If Me.Option_dateborn.Value = True Then
' miformula = "ORDEN='" & "Fecha Nacimiento" & "'"
'End If
CrystalReport1.Formulas(4) = miformula


var_nombre_usuario = "Pendiente Sist. Seg."
miformula = "firma='" & var_nombre_usuario & "'"
CrystalReport1.Formulas(1) = miformula

CrystalReport1.DiscardSavedData = True

'If Me.Option_sort_name.Value = True Then
CrystalReport1.ReportFileName = "C:\aplicaciones\negocios\reportes\publicidad\qry_balance_auditoria.rpt"
'End If

'If Me.Option_sort_lastname.Value = True Then
'CrystalReport1.ReportFileName = "C:\aplicaciones\negocios\reportes\publicidad\qry_all_merc_lastname.rpt"
'End If

'If Me.Option_dateborn.Value = True Then
'CrystalReport1.ReportFileName = "C:\aplicaciones\negocios\reportes\publicidad\qry_all_merc_date.rpt"
'End If

'CrystalReport1.PrinterPort = "LPT1"
CrystalReport1.Action = 1 'se ejecuta el reporte
End Sub

************************** __ .. __ ************************
No se si eso responde tu pregunta

Saludos y suerte