Visual Basic.NET - Hacer un filtro de un DataGridView de un TextBox

Public Class Almacen

    Public consulta

    Private Sub Almacen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Almacen2TableAdapter.Fill(Me.Database4DataSet.Almacen2)

        Dim adap As New Database4DataSetTableAdapters.Almacen2TableAdapter()

        Dim tabla As New DataTable

        tabla = Me.Database4DataSet.Almacen2

        adap.Fill(tabla)

        Me.DataGridView1.AutoGenerateColumns = True

        Me.DataGridView1.Columns("Id").Visible = False

        Me.DataGridView1.DataSource = tabla

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        consulta = ("SELECT * FROM Almacen2 WHERE SKU LIKE '%" & TextBox1.Text & "%'")

    End Sub

End Class

Imports System.Data

Imports System.Data.OleDb

Imports System.Data.SqlClient

Public Class conectaaaccess

    Dim cnn As New OleDbConnection(cconexion)

    Dim filtro As String

    Private Sub conectaaaccess_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        filtro = "where nombre LIKE '%" & Me.TextBox1.Text.Trim & "%' "

        ver_registros()

    End Sub

'LLENA EL DATAGRIDVIEW

    Private Sub ver_registros()

        Dim Da As New OleDbDataAdapter

        Dim Ds As New DataSet

        Dim consulta As String

        consulta = "select id, nombre, descripcion " & _

        " from TABLA " + filtro + " order by nombre ASC "

        Da = New OleDbDataAdapter(consulta, cnn)

        Ds.Tables.Add("TABLA")

        Da.Fill(Ds.Tables("TABLA"))

        Dim myDataView As DataView = New DataView(Ds.Tables("TABLA"))

        DataGridView1.DataSource = myDataView

        For Each columna As DataGridViewColumn In Me.DataGridView1.Columns

            columna.SortMode = DataGridViewColumnSortMode.NotSortable

        Next

        cnn.Close()

    End Sub

'HACE EL FILTRO CADA VEZ QUE SE TECLEA UN CARACTER

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        filtro = "where nombre LIKE '%" & Me.TextBox1.Text.Trim & "%' "

        ver_registros()

    End Sub

End Class