DataGridView selected record print vb.net

Question

"This is my code but print all records. pls help me pls. I want to search a record and print crystalreport.

Imports System.Data.SqlClient

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    '
    Me.Patient_tblTableAdapter.Fill(Me.DoctorDataSet.patient_tbl)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    PatienttblBindingSource.Filter = "(Convert(ID,'System.String') LIKE '" & TextBox1.Text & "%')"
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim rpt As New CrystalReport1
rpt.SetDataSource(DoctorDataSet)
Form2.CrystalReportViewer1.ReportSource = rpt

    Form2.ShowDialog()

End Sub

End Class