Boa tarde Ghost_jlp e demais colegas...

Consegui resolver o problema, peguei uma dica postada aqui mesmo no forum:

 

 Screen.MousePointer = vbHourglass
 Dim Aplicacao As New CRAXDRT.Application
 Dim Report As New CRAXDRT.Report
 Set Report = Aplicacao.OpenReport(App.Path & "listacli.rpt")
 Report.DiscardSavedData
SQL = "SELECT * FROM TABELA WHERE Data >= #" & format(data_inic, "mm/dd/yyyy") & "# AND Data <= #" & format(data_end, "mm/dd/yyyy) & "#" 

 Report.SQLQueryString = SQL

 Report.PrinterSetup (0)
 frmreport.CRViewer91.ReportSource = Report
 frmreport.CRViewer91.EnableExportButton = True
 frmreport.CRViewer91.EnableselectExpertButton = True
 frmreport.CRViewer91.EnableGroupTree = False
 frmreport.CRViewer91.ViewReport
 Screen.MousePointer = vbDefault
 frmreport.Show 1

Muito obrigado a todos que me ajudaram!

 

Grande abraço!

Carlos

 

************************TOPICO ENCERRADO*********************