主题：请教使用外部表实现模糊帅选不会执行

Dim txt As String = e.Form.Controls("Text_select").Text
Dim Filter As String
If txt = "" Then
    Filter = ""
   MessageBox.Show ("1")
Else
     txt = "'*" & txt & "*'"
     Filter = "[项目编号] Like " & txt & " Or [客户名称] Like " & txt & " Or [项目名称] Like " & txt & " Or [项目地址]  Like " & txt

     MessageBox.Show (Filter)
End If
DataTables("项目").LoadFilter = Filter
DataTables("项目").Load()

在窗体上有一个TXT 文本框，在TXTCHANGED  的事件上输入以上代码，，用MessageBox.Show (Filter)
测试程序又会执行  就是 帅选不出内容来 请教是不是Filter有问题

谢谢大家了！