Ms access 为什么VBA CurrentProject.Connection语句会导致所有access数据库崩溃？

我使用的是一个遗留数据库.mdb数据库，它在Access 2007中遇到与CurrentProject.Connection相关的行时崩溃

当我向全新的数据库添加相同的代码时，它也会使它们崩溃

Dim rstDateFields As New adodb.Recordset
rstDateFields.Open "SELECT * FROM defDateFields ORDER BY FieldID", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

---

引用设置为：VBA、MS ACCESS 12.0对象库、OLE自动化、MS OFFICE 14.0 ACCESS db引擎对象一个猜测：您能确保您的记录集是ADO类型吗？您是否对记录集使用隐式声明，例如“Dim rs as recordset”？在这种情况下，您的记录集可以是DAO类型

---

无论如何，我们很乐意帮助您，但您应该给我们更多的代码来理解您的问题

您向我们展示的代码是非常基本的ADO，因此很难相信代码本身就是问题的原因。通过从另一台机器尝试相同的代码，检查问题是否与该机器隔离。如果它在那里运行没有错误，很可能原来的机器不知怎么坏了。不幸的是，试图找到并修复破损可能是一项挑战。祝你好运

您是否能够直接运行select语句？应用程序以前是否使用此代码工作，或者错误是否仅在更新代码后发生？以下是详细信息：

CurrentProject.Connection在执行此代码时是否打开？查看可以打开连接的清单。我同意。我会清除记录集。再多写几行代码就可以很好地解决这个问题。谢谢。代码在其他机器上运行良好，因此这可能是我的特定计算机的问题，而不是代码本身。