سلام
1- در crystal report ابتدا یک متغییر تعریف کرده از هر نوع مثلا pname از نوع string بعد متغییر را در جای خودش در گزارشdragکرده
2 - کد زیر را در برنامه بنویسید
Dim rpt As New CrystalReport1()
CrystalReportViewer1.ReportSource = rpt
Dim pfields As New CrystalDecisions.Shared.ParameterFields()
Dim pfield As New CrystalDecisions.Shared.ParameterField()
Dim disVal As New ParameterDiscreteValue()
pfield.ParameterFieldName = "pname"
disVal.Value = TextBox1.Text
pfield.CurrentValues.Add(disVal)
pfields.Add(pfield)
rpt.Load()
:)