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