使用多选列表框作为查询条件时出现Error 3131错误

这个Error 3131本质是SQL语法错误，你觉得strSQL内容正确，但其实拼接时的一个小细节没注意到——我们一起来排查修复：

核心问题：SQL字符串拼接缺少空格 #

看你的SQL拼接代码：

strSQL = "SELECT dbo_CATEGORY1.* FROM dbo_CATEGORY1" & _
    "WHERE dbo_CATEGORY1.[LEVEL1] " & strCAT1 & ";"

当两个字符串拼接后，FROM dbo_CATEGORY1会直接和WHERE连在一起，变成：

SELECT dbo_CATEGORY1.* FROM dbo_CATEGORY1WHERE dbo_CATEGORY1.[LEVEL1] IN('值1','值2');

数据库根本无法识别dbo_CATEGORY1WHERE这个无效的表名+关键字组合，自然抛出语法错误。

修复方案：添加必要的空格 #

只需要在FROM子句的末尾或者WHERE关键字的开头加一个空格即可：

strSQL = "SELECT dbo_CATEGORY1.* FROM dbo_CATEGORY1 " & _
    "WHERE dbo_CATEGORY1.[LEVEL1] " & strCAT1 & ";"

或者：

strSQL = "SELECT dbo_CATEGORY1.* FROM dbo_CATEGORY1" & _
    " WHERE dbo_CATEGORY1.[LEVEL1] " & strCAT1 & ";"

额外优化：处理含单引号的选项值 #

如果你的列表框选项里包含单引号（比如O'Neil），直接拼接会导致SQL语法再次出错（变成'O'Neil'，单引号不匹配）。建议在拼接时替换单引号为双单引号：

strCAT1 = strCAT1 & ",'" & Replace(ctl.ItemData(varItem), "'", "''") & "'"

这样就能安全处理所有带特殊字符的选项值。

验证修改后的代码 #

当你选择多个选项时，生成的SQL会变成正确的格式：

SELECT dbo_CATEGORY1.* FROM dbo_CATEGORY1 WHERE dbo_CATEGORY1.[LEVEL1] IN('分类1','分类2');

此时再执行qdf.SQL = strSQL就不会触发Error 3131了。

内容的提问来源于stack exchange，提问作者Greg K.