prima di lancira i report fai "discardsavedata"?

che crystal usi?
io il 9 e uso queste righe

Dim crxApplication As CRAXDRT.Application
Dim crxReport As CRAXDRT.Report

On Error Resume Next

Set crxApplication = CreateObject("CrystalRuntime.Application")
Set crxReport = crxApplication.OpenReport(pathReport)
crxReport.RecordSelectionFormula = selectionFormula
crxReport.DiscardSavedData
DoEvents

č ovviament eparte di una funzione
spero di averti aiutato fammi sapere ciauuuuu