Dynamically Set values to Crystal Report Text Object

ReportDocument mRptDoc = New ReportDocument()

Dim myTextObjectOnReport As CrystalDecisions.CrystalReports.Engine.TextObject

mRptDoc.Load(Server.MapPath("~\Reports\" + reportName + "").ToString())

If reportName = "reportname.rpt" Then

myTextObjectOnReport=CType(mRptDoc.ReportDefinition.ReportObjects.Item("txtUserID"), CrystalDecisions.CrystalReports.Engine.TextObject)

myTextObjectOnReport.Text = "sampletext"

End If