'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