[أبو عمر]

CrystalReport

كود :

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   Dim Report1 As New CrystalReport1

   Report1.SetParameterValue("crTextBox", Form1.TextBox1.Text)
   CrystalReportViewer1.ReportSource = Report1
End Sub

MS report
by creating parameter  and pass value from textbox etc.....