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
>