'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