chamar reletório de ond estiver o relatorio

boa tarde pessoal, queria saber como faço para por exemplo, tenho um relatório, e no código fonte meu está assimPrivate Sub relCli_Click()crReport.ReportFileName = "D:\agend\agend\RelCli.rpt"crReport.Destination = crptToWindowcrReport.Action = 1End Sub queria q de onde ele estiver ele seja chamado, tipo AppPath, soh q num sei como fazvaleuw, agradeço desde já