This seems to work nicely. The location already includes the table name.

>Looks pretty close. I think you need to specify the table name as part of the location.
>
>>I think I've got it! Here's the code for anyone else who might need it (I'm using CR10, VFP8 and Fox2X tables):
>>
>>

>>loCR=CREATEOBJECT("CrystalRuntime.Application")
>>loRpt=loCR.OpenReport("MyReport.rpt")
>>
>>IF loRpt.HasSavedData
>>   loRpt.DiscardSavedData()
>>ENDIF
>>FOR EACH loTable IN loRpt.Database.Tables
>>   loTable.Location=FORCEPATH(loTable.Location,"c:\MyPath\")+".dbf"
>>ENDFOR
>>FOR EACH loSection IN loRpt.Sections
>>   FOR EACH loObject IN loSection.ReportObjects
>>      IF loObject.Kind=5 && Subreport
>>         loSub=loRpt.OpenSubreport(loObject.SubReportName)
>>         IF loSub.HasSavedData
>>            loSub.DiscardSavedData()
>>         ENDIF
>>         FOR EACH loTable IN loSub.Database.Tables
>>            loTable.Location=FORCEPATH(loTable.Location,"c:\MyPath\")+".dbf"
>>         ENDFOR
>>      ENDIF
>>   ENDFOR
>>ENDFOR
>>