For nPos_Tab_Rel As Integer = 0 To (s_rptPrint.DataDefinition.FormulaFields.Count - 1)
  If (s_rptPrint.DataDefinition.FormulaFields(nPos_Tab_Rel).Name.Equals("nmCliente")) Then
      s_rptPrint.DataDefinition.FormulaFields("nmCliente").Text = "Cliente - Teste"

Exit For

End If
Next