Access触发Run time error 3061：INSERT插入SumTable数据参数不足

问题复现 #

编写Access VBA操作数据库时触发运行时错误：Run time error 3061, too few parameters, expected 2。
操作目标为向SumTable表的4个字段插入对应值，核对多份资料未发现代码明显问题；通过Debug.Print输出待执行SQL，结果与预期完全一致，打印内容为：

INSERT INTO SumTable VALUES (Bailey,Jessica,4,2);

逻辑简单但始终无法定位根因，涉及的代码段如下：

Dim data As DAO.Database 
Set data = CurrentDb
DoCmd.OpenTable "SumTable", acViewNormal, acAdd
Str_Sql = "INSERT INTO SumTable VALUES (" & strlast & "," & first & "," & count & "," & countfin & ");"
Debug.Print Str_Sql
data.Execute Str_Sql
DoCmd.Close acTable, "SumTable", acSaveYes

根因分析 #

报错核心是SQL语法不符合Access引擎解析规则：文本类型的插入值没有用单引号包裹。引擎会把无引号包裹的Bailey、Jessica识别为待赋值的参数名，而非具体的字段值，最终报参数数量不匹配的错误。
打印结果和预期一致只是开发者视角的判断，SQL引擎对语句的解析规则不会以人的主观预期转移。

修复方案 #

• 给所有文本类型的拼接值两侧加上单引号，数值类型值可直接拼接。修正后的SQL拼接代码如下：

  Str_Sql = "INSERT INTO SumTable VALUES ('" & strlast & "','" & first & "'," & count & "," & countfin & ");"
  

  修正后引擎实际解析的合法SQL为：

  INSERT INTO SumTable VALUES ('Bailey','Jessica',4,2);
  

• 删除冗余代码：通过DAO对象执行INSERT操作不需要提前手动打开数据表、执行后再关闭表，DoCmd.OpenTable和DoCmd.Close两行完全多余，直接删除即可。

优化建议 #

字符串拼接SQL的方式存在注入风险，也容易因为值本身包含单引号（比如姓氏为O'Neil）触发语法错误，更稳妥的实现方式是用参数化查询，无需手动处理引号转义，示例代码：

Dim data As DAO.Database
Dim qdf As DAO.QueryDef
Set data = CurrentDb
' 定义带参数占位符的SQL语句
Str_Sql = "INSERT INTO SumTable VALUES (pLastName, pFirstName, pCount, pCountFin);"
Set qdf = data.CreateQueryDef("", Str_Sql)
' 直接给参数传值，无需处理格式转义
qdf!pLastName = strlast
qdf!pFirstName = first
qdf!pCount = count
qdf!pCountFin = countfin
' 执行SQL，dbFailOnError可以在执行出错时直接抛出明确异常
qdf.Execute dbFailOnError
' 释放对象
Set qdf = Nothing
Set data = Nothing

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