If you are using Crystal Report do these steps
Add Crystal Report references
In your form add these lines at top
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Rpt As New ReportDocument
Dim frmView As New frmCRView
Dim RptName As String = ""
RptName = "Report Title"
Rpt = New Report1
frmView.CRViewer1.SelectionFormula = ("{Table1.pt_id}='" & Trim(Me.TextBox1.Text) & "'")
frmView.CRViewer1.ReportSource = Rpt
frmView.CRViewer1.RefreshReport()
frmView.Text = RptName & " for Patient: " & Me.TextBox1.Text
frmView.Show()
End Sub