Excel ADODB与访问数据库的连接未在vba中打开

我正在尝试连接到名为Inventory.accdb的Access数据库。我在“.Open MyConn”行收到身份验证错误。起初，我使用的是Jet提供商，它也不起作用。有人知道如何克服这个问题吗

Set ShDest = Sheets("Sheet1")
Set cnn = New ADODB.Connection

With cnn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Open MyConn
End With

---

我建议使用开头代码：

Dim cnn, ShDest 

Set ShDest = Sheets("Sheet1")

'
' open connection to Access:
'
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0" _
  & ";Data Source=" & ThisWorkbook.Path & Application.PathSeparator & TARGET_DB 
cnn.Open

---

它当前未声明为任何内容。我有这个：Dim MyConn和我的声明。应该申报什么？没关系。我忽略了这一点，感谢您指出这一点。作为参考，它是：MyConn=ThisWorkbook.Path&Application.PathSeparator&TARGET\u DB，其中TARGET\u DB是一个常量，包含访问文件的名称