FoxPro/Visual FoxPro - Crystal en vfp9

Hola amigos quiero que desde vfp mande allamar a unos reportes que tengo en crystal reports XI en un formulario gregue el OLE Crystal Reports Control y en un botón en la propiedad click tengo el siguiente codigo:

THISFORM.olecontrol1.CONNECT = 'conexion.dsn=rpt_inventario'
THISFORM.olecontrol1.discardSavedData = 1
thisform.olecontrol1.windowtitle = 'Pedido del Almacen.'
THISFORM.olecontrol1.reportFileName="C:\Sanchez\Reportes\rpt_inventario_almacen.rpt"THISFORM.olecontrol1.action=1

Mi problema es que al ejecutarlo me sale el sin. mensaje: Ole Dispatch exception code 0
from CrystalReports: Unable to load report..

ojala que alguien m pudiera ayudar a solucionar ese problema...se lo agradezco de antemano.

Prueba de este modo

* Thisform.Olecontrol1.ReportFileName ='C:\Casa\Report1.Rpt'

*Thisform.Olecontrol1.Action=0

* Thisform.Olecontrol1.Destination=0
* Thisform.Olecontrol1.WindowTitle="Informe"

En tú informe tienes dos veces en una misma linea haciendo
una llamada mediante el comando Thisform ?
osea donde llamas el nombre del report ?

Hola gracias por contestar,borre el codigo que tenia y puse el que me enviaste y sigue saliendo el mismo mensaje.

Referente a lo que me preguntas estoy llamando al reporte de crystal con el codigo que dije anteriormente.
en ningun lado mas llamo al informe.

O si se tiene que hacer?? me habian dicho que solo con poner ese codigo en un boton y agregar el OLE Crystal Reports Control deberia de ver el reporte de crystal desde vfp.

Ayudame por favor si sabes como hacerlo,es urgente!!

este ejemplo lo conseguie en la red:

Crystal Report. Informes

Select * from myTable where Something into cursor myCursor
_CRReport("myCursor","c:\myCR_RPT_Files\", "myTest.RPT", "myTable")
return

Function _CRReport
Lparameters tcCursorName, tcPath, tcRPTName, tcTableName

lcAlias = alias()
Select (tcCursorName)
lcTemp = sys(2015)
Copy to (tcPath+lcTemp) type fox2x
oCrystal=CreateObject("Crystal.CRPE.Application")
#Define WS_MAXIMIZE 29949952
Declare integer GetForegroundWindow in WIN32API
Declare short IsWindow in WIN32API integer

oRpt = oCrystal.OpenReport(tcRPTName)
With oRpt
With .Database.Tables(tcTableName)
.Location = tcPath+lcTemp+".dbf"
Endwith
With .PrintWindowOptions
.CanDrillDown = .t.
.HasCancelButton = .t.
.HasCloseButton = .t.
.HasExportButton = .t.
.HasGroupTree = .t.
.HasNavigationControls = .t.
.HasPrintButton = .t.
.HasPrintSetupButton =.t.
.HasProgressControls =.t.
.HasRefreshButton =.f.
.HasSearchButton =.t.
.HasZoomControl =.t.
Endwith
.preview ("Report Preview "+"by VFP",,,,,WS_MAXIMIZE,0)
Endwith

lnHwndActiveX = GetForegroundWindow() && Save window handle
Do while IsWindow(lnHwndActiveX) # 0 && Wait while ActiveX Alive
Enddo
Clear dlls

Erase (tcPath+lcTemp+".*")
If !empty(lcAlias)and used(lcAlias)
Select (lcAlias)
Endif

Si no lo solucionas ahún escribeme o anexamé al messenger
yo estoy en las mañanas en mi oficina y tengo instalado el Crystal Report

Saludos Ivonne .-