فیلتر کردن DataGridView بر اساس یک کادر متن

سلام
میخام با یک کادر متن یک دیتا گرید رو فیلتر کنم
خودم این کد نوشتم اما کار نمیکنه

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

()con.Close
(Dim ad As New OleDb.OleDbDataAdapter("select * from fardi WHERE nam_khan" Like t1.Text, con
Dim dt As New Data.DataTable
()con.Open
(ad.Fill(dt
dgv.DataSource = dt


End Sub

نقل قول:

---

نوشته شده توسط hhr1360

سلام
میخام با یک کادر متن یک دیتا گرید رو فیلتر کنم
خودم این کد نوشتم اما کار نمیکنه

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

()con.Close
(Dim ad As New OleDb.OleDbDataAdapter("select * from fardi WHERE nam_khan" Like t1.Text, con
Dim dt As New Data.DataTable
()con.Open
(ad.Fill(dt
dgv.DataSource = dt


End Sub

---

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If con.State <> ConnectionState.Open Then con.Open()

        Dim ad As New OleDb.OleDbDataAdapter( "select * from fardi WHERE nam_khan Like @s", con)

        ad.SelectCommand. Parameters.Add( New OleDb.OleDbParameter ("s", "%" & t1.Text & "%"))

        Dim dt As New Data.DataTable

        ad.Fill(dt)

        dgv.DataSource = dt

    End Sub