MS Access记录集定义出现Type Mismatch错误，求解决思路

碰到过好多次这种「单独跑SQL没问题，放VBA里就报类型不匹配」的情况，给你几个针对性的排查和解决思路：

1. 确认记录集对象的类型声明是否正确 #

首先得盯紧rst的声明：

• 如果用的是ADO记录集，必须确保已经引用了ADO库，并且声明成：

  Dim rst As ADODB.Recordset
  

• 如果是DAO记录集，则声明为：

  Dim rst As DAO.Recordset
  

要是只写Dim rst As Recordset，当你同时引用了ADO和DAO库时，VBA可能会默认选优先级高的那个库，导致对象类型和后续操作不兼容，直接触发类型不匹配。

2. 排查拼接后的SQL字符串是否有隐形问题 #

你说单独运行SQL没问题，但存变量就出错，大概率是拼接后的字符串藏着看不见的小问题——比如多余的换行、缺失的空格，或者引号转义错误。可以在Set rst =这行前加一句调试代码：

Debug.Print strSQL ' 把strSQL换成你实际的SQL变量名

然后复制立即窗口里的完整SQL，再扔到查询设计器里跑一遍。我之前就碰到过拼接时漏了表名和WHERE之间的空格，导致SQL语法错误，结果VBA返回的不是预期的记录集，就报了类型不匹配。

3. 明确指定记录集的打开参数 #

别依赖默认的打开方式，尽量把参数写全：

• ADO方式：

  Set rst = New ADODB.Recordset
  rst.Open strSQL, YourConnectionObject, adOpenStatic, adLockReadOnly
  

• DAO方式：

  Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
  

有时候默认的游标类型和你的SQL返回结果不兼容，也会抛出类型错误。

4. 检查字段/表名的拼写与大小写 #

哪怕你单独跑SQL没问题，拼接变量时可能手滑拼错了字段名（比如把OrderID写成OrderId），如果你的数据库是区分大小写的模式，就会导致SQL返回的结构和预期不符，进而触发类型不匹配。

5. 用参数化查询替代字符串拼接 #

字符串拼接不仅容易踩坑，还存在SQL注入风险。换成参数化查询试试，比如ADO的写法：

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = YourConnectionObject
cmd.CommandText = "SELECT * FROM YourTable WHERE AutonumberField = ?"
cmd.Parameters.Append cmd.CreateParameter(, adInteger, adParamInput, , YourNumberValue)
Set rst = cmd.Execute

这种方式能确保参数类型和字段类型严格匹配，彻底避免拼接时的字符串问题。

内容的提问来源于stack exchange，提问作者David