crie um Template Field Objeto no seu formulario e depois tente adaptar a rotina abaixo
Set Report = Aplicacao.OpenReport(App.Path & "RPT_ControleNaoQuitados.rpt")
With Report
.RecordSelectionFormula = FORMULA
If .FormulaFields.Item(1).Name = "
{@<TemplateField1>}" Then
.FormulaFields.Item(1).Text = Chr(34) & VAR_RAZAO & Chr(34)
End If