'Open report > Set objCR = CreateObject("Crystal.CRPE.Application") > Set gReport = objCR.OpenReport(gReportPath & "rptSales.rpt") > Set rptDB = gReport.Database > Set rptTables = rptDB.Tables > Set rptTable = rptTables.Item(1) > rptTable.SetPrivateData 3, rstData >I'll try it, Thanks.