访问VBA设置列表记录集不起作用

Question

我遇到了一个有趣的问题，无法弄清楚解决方案。这段代码一直运行良好，直到一周前。由于某种原因，它不能在我的计算机上工作，但在其他所有计算机上工作。现在，当我运行下面的代码时，它告诉我'ActiveX组件无法创建对象'。

If Not rs.EOF Then
    Set Me.DropDownList.Recordset = rs <-Fails here
    Me.DropDownList.Requery
End If

它现在正在每个窗体上的每个控件上执行此操作，但同样只在我的计算机上。我已经验证控件设置为“表/查询”而不是值列表。但是，如果我遍历记录集并单独添加项目，将行源更改为值列表后，它可以正常工作。

查询没问题，记录集打开正常我无法突然设置列表框或下拉列表的记录集。我正在使用adodb并从SQL服务器检索数据。所有这些都是正确连接和检索。

任何帮助将不胜感激，我已经做了几天的搜索和故障排除没有成功。将所有代码更改为循环是非常低效的，因为它不能在我的计算机上运行。

Answer 1

能够最终归结为它是DLL或服务的问题。修复了Microsoft Office，重新启动，一切都恢复正常。不明白为什么会发生这似乎是解决方案。