Doh! Sorry..I answered a similar question in a different forum. Here's the code.

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 ?
>
>Thanks Again !