Tables("客户信息表").Filter="客户名称 Like '*" & khm.Text & "*' and 联系人 like '*" & lxr.Text & "*'"
改为:
Tables("客户信息表").Filter="客户名称 Like '*" & khm.Text & "*' Or 联系人 like '*" & lxr.Text & "*'"
要分清楚“与”和“或”的不同