Crystal Report - ayuda en un error

hola tengo un error al abrir un reporte desde VB 6 en CR 8 el error es 20507 nombre de archivo no valido no he utilizado mucho crystal reports, ojala y alguien me puede ayudar por favor gracias

Pues el error parece bastante claro, que no encuentra el archivo que le dices, comprueba bien la ruta completa del mismo

si de hecho ya verifique la ruta y esta bien por eso es que no se que pasa, escribo aqui el codigo que uso

With CRRecibidas
.Reset
.ReportFileName = App.Path & "C:\REPORTES\REC.rpt"
.Connect = "DataSource=SItheth;location=DBSCoT;uid=STre;pwd=STrem;"
.WindowShowGroupTree = True
.WindowTitle = "Reporte de Pendientes Recibidas"
'.WindowAllowDrillDown = True
strFormula = "{precibidas.fecha_llamada} in date(" & Format(txtFromDate.Text, "YYYY,M,D") & ") To Date(" & Format(txtToDate.Text, "YYYY,M,D") & ")"
.ReplaceSelectionFormula (strFormula)
If optPreview Then .Destination = crptToWindow
If OptPrint Then .Destination = crptToPrinter
If OptPrint Then .PrinterSelect
.Action = 1
Exit Sub
End With

si de hecho ya verifique la ruta y esta bien por eso es que no se que pasa, escribo aqui el codigo que uso

With CRRecibidas
.Reset
.ReportFileName = App.Path & "C:\REPORTES\REC.rpt"
.Connect = "DataSource=SItheth;location=DBSCoT;uid=STre;pwd=STrem;"
.WindowShowGroupTree = True
.WindowTitle = "Reporte de Pendientes Recibidas"
'.WindowAllowDrillDown = True
strFormula = "{prec.fecha_ll} in date(" & Format(txtFromDate.Text, "YYYY,M,D") & ") To Date(" & Format(txtToDate.Text, "YYYY,M,D") & ")"
.ReplaceSelectionFormula (strFormula)
If optPreview Then .Destination = crptToWindow
If OptPrint Then .Destination = crptToPrinter
If OptPrint Then .PrinterSelect
.Action = 1
Exit Sub
End With

el error esta clarisimo!!

App.Path & "C:\REPORTES\REC.rpt"

deberia ser

"C:\REPORTES\REC.rpt"

ya que el app.path te entrega la ruta de tu aplicacion por ejemplo c:\sistema

y tu estas diciendole

"c:\sistemac:\REPORTES\REC.rpt"

se usa App.path cuando queremos poner la carpeta reportes dentro de donde esta el .exe

EJEMPLO
App.Path & "\REPORTES\REC.rpt"

seria c:\sistema\REPORTES\REC.rpt"

Saludos