With e.Form.Controls("textbox8") If .text <> Nothing Then Dim flt As String = "1=2" For Each s As String In .text.split(" ") flt &= " or yxdc like '%" & s & "%' or xkjs like '%" & s & "%'" Next filter &= " and (" & flt & ")" End If End With Tables("信息查询表").Filter = Filter