Looks like a formula error

>I get the following error when I try to do print a report using CR.
>
>OLE IDispatch exception code 0 from Crystal Reports AcriveX Designer.The Remaining text does not appera to be part of the formula.
>
>Ltempdir=GETENV('Temp')
>
>COPY TO (lTempDir)+'\Archive.dbf' TYPE fox2x
>
>oCR=CREATEOBJECT('CrystalRuntime.Application')
>oRpt=Ocr.OpenReport(startdir+'\reports\archive.rpt')
>
>
>oDB= oRPT.Database
>ocDBT=oDB.Tables()
>oDBT=ocDBT.Item(1)
>oDBT.Location=(lTempDir)+'\Archive.dbf'
>IF oRpt.HasSavedData
> oRpt.DiscardSavedData()
>endif
>
>
>ORpt.PrintOut()