path generico con crystal 8

[analoyra]

Hola, tengo un problema con el crystal report
hice un reporte desde agregar proyecto del visual, y sola me creo un form y en la seccion diseñadores el crystalreport1.
en el form tengo estas sentencias
Call Conecta
Screen.MousePointer = vbHourglass
Screen.MousePointer = vbDefault
sql = "SELECT * from CompCompra "
rsAux.Open sql, cn, adOpenDynamic, adLockPessimistic
Report.SQLQueryString = sql
Report.RecordSelectionFormula = "{compcompra.nrocomp} = '" & FrmCompra.TxtNumComp & "'"
Report.DiscardSavedData ' se utiliza para q refrescar el dato siguiente
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
On Error Resume Next
CRViewer1.Refresh


me anda perfecto, pero cuando lo llevo a otra pc la ruta en el diseñador es otra y no le pude poner app.path ni crearle la ruta desde el form

espero me entiendan lo que sucede y como siempre... su ayuda es invalorable y estoy muy agradecida con todos lo integrantes del foro