Access VBA设置列表控件Recordset失败问题求助

听起来你遇到了一个特别头疼的本地环境问题——明明代码在其他机器上都正常，唯独自己电脑上没法给列表框/下拉框绑定ADODB Recordset，报错ActiveX component can't create object，但手动循环添加项又能正常运行。结合你的描述，我整理了几个针对性的排查方向，你可以逐一试试：

1. 重新注册ADODB相关组件 #

这个错误最常见的原因就是本地的ADO组件注册失效或损坏。你可以按以下步骤操作：

• 打开管理员权限的命令提示符
• 运行注册命令（根据你的系统位数调整路径）：
  • 64位系统：regsvr32 "C:\Program Files\Common Files\System\ado\msado15.dll"
  • 32位系统：regsvr32 "C:\Program Files (x86)\Common Files\System\ado\msado15.dll"
• 另外打开VBA编辑器，点击「工具」→「引用」，确保Microsoft ActiveX Data Objects x.x Library已勾选，且版本和其他正常机器保持一致（比如都是6.1版本）。

2. 检查Office版本与更新差异 #

很可能是你本地的Office最近安装了某个补丁，导致控件绑定Recordset的行为发生了变化，而其他机器没同步更新：

• 对比其他正常机器的Office版本（包括具体的补丁号），可以在Access里点击「文件」→「账户」查看「关于Access」的详细信息
• 尝试回滚本地的Office更新：打开控制面板→「程序和功能」→「查看已安装的更新」，找到最近安装的Office更新并卸载，然后重启电脑测试
• 另外确认你的Office是32位还是64位，如果和其他机器位数不同，也可能引发兼容性问题，尽量保持一致。

3. 排查系统权限与安全拦截 #

本地的安全软件或权限限制也可能阻断ActiveX控件的创建：

• 临时关闭杀毒软件、防火墙等安全工具，测试代码是否能正常运行
• 右键点击Access图标，选择「以管理员身份运行」，再测试控件绑定Recordset的功能

4. 修复或重新安装Office #

如果上面的方法都无效，可能是本地Office的核心组件已经损坏：

• 打开控制面板→「程序和功能」，找到你的Office套件，右键选择「更改」，先尝试「快速修复」，不行再用「联机修复」
• 极端情况下，可以卸载当前Office，重新安装和其他机器完全相同版本的Office（包括补丁）

临时替代方案（减少代码改动） #

如果你急需恢复功能，又不想大面积修改代码，可以封装一个通用函数来统一处理控件赋值，避免重复写循环：

Sub BindRecordsetToControl(ctl As Control, rs As ADODB.Recordset, Optional valueFieldIndex As Integer = 0, Optional textFieldIndex As Integer = 1)
    ctl.RowSourceType = "Value List"
    ctl.RowSource = ""
    
    If rs.EOF Then Exit Sub
    
    rs.MoveFirst
    Do Until rs.EOF
        ' 根据控件类型拼接值（下拉框/列表框可能需要值和显示文本）
        ctl.AddItem rs.Fields(valueFieldIndex).Value & ";" & rs.Fields(textFieldIndex).Value
        rs.MoveNext
    Loop
End Sub

之后只需要在原来的代码位置调用这个函数即可：BindRecordsetToControl Me.DropDownList, rs

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