主题：动态筛选表中的数据

【求助】：我想在项目中增加一个泛用模糊查询的界面。即我选择当前表，输入关键字进行模糊查询就要把表中的所有列含有输入的文本加载出来。遇到难题，求助大神们。我写的测试代码如下（写的有问题），请求指点。

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim FilterStr As String = ""

If txt = "" Then
    CurrentTable.Filter = ""
Else
    txt = "'%" & txt & "%'"
    For i As Integer = 0 To CurrentTable.Cols.Count - 1
        FilterStr  = " '" & FilterStr & "' + '" & CurrentTable.Cols(i).Name & "' & Like + " & txt & " + or"       
    Next
End If
CurrentTable.Filter = FilterStr