Here is how you can change a reports text object.
Code:
Dim objT As CrystalDecisions.CrystalReports.Engine.TextObject
objT = DirectCast(rpt.Section2.ReportObjects("txtReportType"), CrystalDecisions.CrystalReports.Engine.TextObject)
objT.Text = "Amounts For " & strCYear
If strRptType = "ALM" Then
objT = DirectCast(rpt.Section2.ReportObjects("txtHeader"), CrystalDecisions.CrystalReports.Engine.TextObject)
objT.Text = "Average Lift Minus(31-31/Used) Report"
End If
Me.CrystalReportViewer1.ReportSource = rpt
also you will need this,
Code:
Imports CrystalDecisions.CrystalReports.Engine