Dim query = From customer In dt.AsEnumerable() Where compare( _
          comboBox1.Text, customer.Field(Of String)("CompanyName"), _
          textBox1.Text)
 
    ' Logik nicht vollständig...
    Public Function compare(ByVal op As String, item As String, ByVal arg As _
      String) As Boolean
        If op = "LIKE" Then
            Return item Like "*" & arg & "*"
        End If
        Return False
    End Function

________
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