括号应该放在引号内,条件表达式应该是一个符合表达式规则的字符串:
txt = "'*" & txt & "*'" '如果txt内容两边无*,加这一行代码即可
tbl.Filter = "(编码 Like " & txt & " Or 名称 Like " & txt & " Or 地址 Like " & txt & " Or 业务员 Like " & txt & ") And [分类]='客户'"