Excel VBA数据库连接错误：无法打开数据库'（未知）'

Question

我正在尝试使用ADO DSN连接到Access数据库。

StrPath = Sheets("Sheet1").Range("DB_location")
strCon = "DSN=MS Access Database;DBQ=" & StrPath & ";"

Set con = New ADODB.Connection
con.Open strCon

我可以在我的机器上连接到DB而没有任何问题。但是，当我尝试在另一台PC上运行这个确切的宏时，我在最后一行遇到了这个问题：

我认为这是由数据库引擎引起的，但是从微软网站安装“Microsoft Access数据库引擎2010可再发行组件”并没有解决这个问题。存在VBA编辑器中的所有必要参考。 DB或宏没有问题，因为我在另一台PC上检查过，但是这台特定的计算机遇到了这个问题。

Answer 1

更改

strCon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & StrPath & ";"

解决了这个问题，这意味着问题是由DSN引起的。有没有人猜测这个问题可能来自哪里？

Answer 2

我遇到了这个错误，最终成为我的主键。为什么我将我的主键固定在桌子上，它就像一个护身符。