MS Access中调用ADODB.Recordset.Open引用frmTotalInventory时出现-2147217900‘无效SQL语句’运行时错误的求助

首先明确：frm并不是Access的保留字，所以窗体名前缀带frm不会导致这个错误，问题出在你对ADODB.Recordset.Open方法的使用逻辑上。

核心问题分析 #

你当前代码中直接把窗体名frmTotalInventory传给objRecordset.Open的第一个参数，但ADODB.Recordset.Open的Source参数接受的是SQL语句、表名、查询名，或者ADODB.Command对象，并不是窗体名。之前另一个项目能运行，大概率是巧合：那个项目里的InventoryForm刚好和某个表/查询同名，所以ADODB实际打开的是同名的表/查询，而非窗体本身。而当前项目中frmTotalInventory没有对应的同名表/查询，ADODB就会把窗体名当成SQL语句解析，自然触发"无效SQL语句"错误。

具体排查&修复步骤 #

1. 验证窗体的记录源有效性

打开frmTotalInventory的设计视图，检查记录源属性：

• 如果记录源是空的：这就是直接原因，ADODB无法从无记录源的窗体获取数据。
• 如果记录源是SQL语句：把这段SQL复制到Access的查询设计器中运行，排查是否有语法错误（比如字段名拼写错误、表名不存在、保留字未加方括号等）。
• 如果记录源是表/查询名：确认这个表/查询在当前数据库中确实存在，且名称拼写完全一致（注意Access对对象名的大小写不敏感，但空格或特殊字符需要加方括号）。

2. 修正ADODB记录集的打开方式

如果你要操作的是窗体对应的数据集，正确的做法是获取窗体的记录源，再用ADODB打开：

Dim objRecordset As ADODB.Recordset
Set objRecordset = New ADODB.Recordset
objRecordset.ActiveConnection = CurrentProject.Connection

' 先确保窗体已加载（可以隐藏打开）
If Not IsLoaded("frmTotalInventory") Then
    DoCmd.OpenForm "frmTotalInventory", acHidden
End If

' 获取窗体的记录源
Dim strRecordSource As String
strRecordSource = Forms("frmTotalInventory").RecordSource

' 打开记录集
If strRecordSource <> "" Then
    ' 根据记录源类型选择合适的Options参数
    If Left(strRecordSource, 6) = "SELECT" Or Left(strRecordSource, 5) = "INSERT" Then
        objRecordset.Open strRecordSource, , , adLockBatchOptimistic, adCmdText
    Else
        ' 记录源是表/查询名
        objRecordset.Open strRecordSource, , , adLockBatchOptimistic, adCmdTable
    End If
Else
    MsgBox "窗体frmTotalInventory未设置有效记录源，无法打开记录集。"
    Exit Sub
End If

（注：IsLoaded是Access内置函数，用于检查窗体是否已加载）

3. 另一种方案：使用DAO的RecordsetClone

如果你的需求是操作窗体的当前数据集，也可以直接使用DAO的RecordsetClone（更简单，且不需要依赖ADODB的数据源解析）：

Dim rs As DAO.Recordset
If Not IsLoaded("frmTotalInventory") Then
    DoCmd.OpenForm "frmTotalInventory", acHidden
End If
Set rs = Forms("frmTotalInventory").RecordsetClone

' 后续可以将DAO记录集转换为ADODB（如果需要）
Dim objRecordset As ADODB.Recordset
Set objRecordset = New ADODB.Recordset
objRecordset.Open rs

4. 检查库引用与ADODB版本

虽然你说两个项目的库引用一致，但可以再确认一下：

• 确保引用了Microsoft ActiveX Data Objects x.x Library（建议使用2.8或更高版本）
• 避免同时引用DAO和ADODB时出现命名冲突（可以明确指定前缀，比如ADODB.Recordset和DAO.Recordset）

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