Public Class frmFilter
 
 
    Dim WithEvents tboFilter As New TextBox With
        {.Parent = Me, .Location = New Point(10, 10), .Width = 300}
 
    Dim bs As New BindingSource
    Dim dt As New DataTable
    Dim dgv As New DataGridView With
        {.Parent = Me, .Top = 100, .Size = New Size(300, 300), .DataSource = bs}
 
 
    Private Sub frmFilter_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        'Testdaten
        dt.Columns.Add("irgendwas")
        With dt.Rows
            .Add("A")
            .Add("aa")
            .Add("b")
            .Add("BB")
            .Add("c")
            .Add("cC")
            .Add("aAauuu")
        End With
 
        bs.DataSource = dt
    End Sub
 
 
    Private Sub tboFilter_TextChanged(sender As Object, e As EventArgs) _
        Handles tboFilter.TextChanged
 
        bs.Filter = dt.Columns("irgendwas").ColumnName & " like '" & _
          tboFilter.Text & "*'"
    End Sub
End Class