主题：多关键词模糊查找

那你就用空格分割多个关键字

Dim str As String = e.Form.Controls("TextBox1").Text
Dim filter As String = "1=2"
For Each dc As Col In CurrentTable.Cols
    For Each s As String In str.split(" ")
        filter &= " Or convert(" & dc.Name & ",'System.String') like '%" & s & "%'"
    Next
Next
CurrentTable.Filter = filter