CRApplication = createobject("CrystalRuntime.Application") REPNAME = REPSPATH + 'SURVEY.rpt' CRReport = CRApplication.OpenReport(REPNAME) myLocalDataFile = DataPATH + 'XLFile.xls' CRReport.Database.Tables(1).SetTableLocation(myLocalDataFile, "", ::) CRSubReport = CRReport.OpenSubReports("SSurvey.Rpt") CRSubReport.Database.Tables(1).SetTableLocation(myLocalDataFile, "", "")>Maybe that is what I am missing where is the code that you posted ? Was it in one of the thread responses ?