Pasar DB a Crystal 7 (app.path)

[Frehley]

Hola gente, aca vengo con una duda sustancial:

Tengo varios reportes armados con Crystal 7. Necesito que VB6 les pase la ubicación de la DB (app.path) al reporte, para que sin importar donde se encuentre instalado el sistema igualmente encuentre la base de datos.

Este es el codigo que uso para abrirlos:
Reporte es una variable que utilizo para pasar el nombre del rpt, así uso un solo codigo para todos los reportes.

Código:

Private Sub Form_Load()
 
Dim crApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report

Me.Caption = "Reporte de " & Reporte

    'Abrir el reporte

    Screen.MousePointer = vbHourglass

    Set crReport = crApp.OpenReport(App.Path & "\Reports\" & Reporte & ".rpt", 1)

    CRViewer1.ReportSource = crReport
    CRViewer1.DisplayGroupTree = False
    CRViewer1.ViewReport

    Screen.MousePointer = vbDefault
End Sub

Muchas gracias.