Filter = "交易账号 = '" & .Value & "'" 'Or "交易卡号 = '" & .Value & "'"
改成
Filter = "(交易账号 = '" & .Value & "' Or 交易卡号 = '" & .Value & "')"