filtrar datagridview con textbox

[jepotes]

quiero filtrar el datagridview con el textbox pero no encuentro la forma

paso el codigo para ver si me dan una mano.

desde ya gracias.

Imports System.Data
Imports System.Data.OleDb

Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()

'
' TODO : Add constructor code after InitializeComponents
'
End Sub

Sub Button1Click(sender As Object, e As EventArgs)
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Documents and Settings\teastp\Desktop\iniciando en net\parte 12\Northwind.mdb; User Id=admin;Password=;")

Dim da As New OleDbDataAdapter("SELECT * FROM Products", cnn)
Dim ds As New DataSet

da.Fill(ds)

DataGridview1.DataSource = ds.Tables(0)


End Sub

Sub TextBox1TextChanged(sender As Object, e As EventArgs)


Dim cnn As OleDbConnection=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Documents and Settings\taluc\Desktop\base de datos\Northwind.mdb; User Id=admin;Password=;")
dim sql as String="SELECT * FROM PRODUCTS WHERE PRODUCTNAME like '%" + TextBox1.Text.Trim

Dim da As OleDbDataAdapter= New OleDbDataAdapter(sql, cnn)
dim dt as DataSet=New DataSet(0)
da.Fill(dt)


Me.DataGridView1.DataSource = dt

me.Refresh
End Sub
End Class