Chamada de Relatório

Pessoal,

eu to usando o CR8 pra criar um relatório(q possui sub-relatório) e to chamando ele no vb6.

o problema é q eu não consigo chamar ele.

ele diz q o não encontra o subrelatório.

Crpt_relatorios.GroupSelectionFormula = Empty

Crpt_relatorios.ReportFileName = App.Path & "\DATABASE\rel_consolidado.rpt"

Crpt_relatorios.Connect = "PWD=***"

Crpt_relatorios.RetrieveDataFiles

Crpt_relatorios.GroupSelectionFormula = formula

'**************************

Crpt_relatorios.SubreportToChange = "rel_min_contrat_consol"

Crpt_relatorios.GroupSelectionFormula = formula

Crpt_relatorios.Connect = "PWD=***"

Crpt_relatorios.WindowState = crptMaximized

Crpt_relatorios.WindowShowExportBtn = False

Crpt_relatorios.WindowShowPrintBtn = True

Crpt_relatorios.WindowShowPrintSetupBtn = True

Crpt_relatorios.WindowShowProgressCtls = True

Crpt_relatorios.WindowShowRefreshBtn = True

Crpt_relatorios.WindowShowSearchBtn = True

Crpt_relatorios.WindowShowCloseBtn = True

Crpt_relatorios.WindowShowZoomCtl = True

Crpt_relatorios.Action = 1

prepara_Relatorio = True