Public Class Form1
    Private dt As New DataTable("Data")
    Private bs As BindingSource
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' DataTable Spalten definieren
        dt.Columns.Add("Col1", GetType(Integer))
        dt.Columns.Add("Col2", GetType(String))
 
        ' Daten einfügen
        For i As Integer = 0 To 3
            Dim dr As DataRow = dt.NewRow()
            dr(0) = i + 1
            dr(1) = "data" & i.ToString()
            dt.Rows.Add(dr)
        Next
 
        ' Databinding setzen
        bs = New BindingSource(dt, Nothing)
        DGV.DataSource = bs
    End Sub
 
    ' Filtern
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim filter As String = String.Empty
        For i As Integer = 0 To dt.Columns.Count - 1
            Dim dc As DataColumn = dt.Columns(i)
            Dim tb As TextBox = Controls(dc.ColumnName)
            If tb IsNot Nothing AndAlso tb.Text <> String.Empty Then
                If filter <> String.Empty Then
                    filter &= " And "
                End If
                filter &= dc.ColumnName
                If dc.DataType Is GetType(String) Then
                    filter &= " Like '%" & tb.Text & "%'"
                Else
                    filter &= "=" & tb.Text
                End If
            End If
        Next
        If filter <> String.Empty Then
            Try
                bs.Filter = filter
            Catch
                MsgBox("Ungültige Filter-Werte!")
                Return
            End Try
            If bs.Count = 0 Then
                MsgBox("Nix gefunden!")
                bs.Filter = String.Empty
            End If
        End If
    End SubEnd Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist