OLE DB规范导致的错误

Question

我有一个这样的宏，它运行了一个多月。

我添加了一个具有相同连接的其他模块，它既不再适用于新模块，也不适用于以前运行正常的模块。

错误是：

并弹出conn.Open

这是代码的这一部分：

Dim conn As New ADODB.Connection
Dim connStr As String
Dim rs As ADODB.Recordset

connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "'P:\intranet_path\" & "NewVersion.accdb" & ";"
conn.ConnectionString = connStr
conn.Open

任何想法如何解决这个问题以及为什么它只在一段时间内正常工作？