Dim rpt As New CrystalReport1
Dim tt As CrystalDecisions.CrystalReports.Engine.TextObject
tt = CType(rpt.Section2.ReportObjects("Text1"), TextObject)
tt.Text = Me.TextBox1.Text
Me.CrystalReportViewer1.ReportSource = rpt
Dim tt As CrystalDecisions.CrystalReports.Engine.TextObject
tt = CType(rpt.Section2.ReportObjects("Text1"), TextObject)
tt.Text = Me.TextBox1.Text
Me.CrystalReportViewer1.ReportSource = rpt