Crystal Report - Performance de Reporte

Tengo una apliacacion en VB6 que accesa a una base de datos Oracle, trabajo con crystal Reports 8.5., mi problema consiste en que cuando visualizo el reporte desde mi aplicacion este se demora demaciado, crei que el problema era de crystal asi que realice el filtro que hago en la aplicacion en el crystal pero este solo demora 2 segundo. Alguien me puede orientar a cerca de como mejorar la velocidad en mi aplicacion gracia. Con este procedimiento llamo a todos mis reportes existe un reporte con subreporte pero ese no tiene problemas.

For i = 1 To Report.Database.Tables.Count
Report.Database.LogOnServer "PDSODBC.DLL", "Prueba", "Prueba", "Prueba", GPass
'Report.Database.Tables(i).SetLogOnInfo "acueducto", "SVER", "AGL", "AGL2003"
Report.Database.Tables(i).SetLogOnInfo "Prueba", "Prueba", "Prueba", GPass

Next
'**** SuBReportes

Dim subReport As SubreportObject
' Dim subrpt As Report
Dim sect As Section
Dim rptObject As Object

For Each sect In Report.Sections
For Each rptObject In sect.ReportObjects
If rptObject.Kind = crSubreportObject Then
Set subReport = rptObject
Set subrpt = subReport.OpenSubreport
For i = subrpt.Database.Tables.Count To 1 Step -1
subrpt.Database.Tables(i).SetLogOnInfo "republica", "republica", "republica", GPass
Next i
' Set subReport = Nothing
End If
Next
Next
'**** Fin SuBReporte
Report.GroupSelectionFormula = sql
RptAuditoria.Show vbModal
Set Report = Nothing