Private Sub tbx_name_TextChanged(sender As Object, e As EventArgs) Handles _
   tbx_name.TextChanged
        Dim bs As New BindingSource
        Dim dt As New DataTable
        bs.DataSource = dt
 
        DatenBindingSource.Filter = dt.Columns("Name").ColumnName & " like '" & _
          tbx_name.Text & "*'"
 
    End Sub