Location table subreport

Hi,
I have a report witn 4 subreport;
how i can do to setting the new location of all the tables of all my 4 
subreports into Report Designer Component.
this my code to set the new location into report within subreport

   ax = form.activex1.nativeobject
    wdir="new location"
    this.crxApp = new OLEAutoClient("CrystalRuntime.Application")
    this.crxRep = this.CrxApp.OpenReport("myreport.rpt")
    this.crxRep.ReportTitle= "mytitle"
    for i = 1 to this.crxrep.database.tables.count
         oTable = this.crxrep.database.tables(i)
         if oTable.dataBaseType = 1
            oTable.Location = wdir+oTable.name
         endif
   endfor

Thank's
Andrea