If ComboBox1 > "" Then Filter.add("客户名称 like '%" & ComboBox1 & "%' Or 业务员 Like '%" & ComboBox1 & "%'")
改成
If ComboBox1 > "" Then Filter.add("(客户名称 like '%" & ComboBox1 & "%' Or 业务员 Like '%" & ComboBox1 & "%')")