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

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

StrPath = Sheets("Sheet1").Range("DB_location") strCon = "DSN=MS Access Database;DBQ=" & StrPath & ";" Set con = New ADODB.Connection con.Open strCon 

我可以连接到数据库没有任何问题，在我的机器上。 但是，当我试图在另一台PC上运行这个精确的macros时，我在最后一行遇到了这个问题：

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

Answer 1

更改

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

解决了这个问题，这意味着问题在某种程度上是由于DSN造成的。 有没有人猜测这个问题可能来自哪里？