主题：[求助]查询出错

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

txt = txt.Replace("*","[*]").Replace("%","[%]")
Dim tbl As Table = Tables("S001")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "第二列 Like " & txt & " Or 第三列 Like " & txt & " Or 第四列 Like " & txt & " Or 第五列 Like " & txt & " Or 第六列 Like " & txt

End If