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