ADODB连接到Access数据库不能在vba中打开

我正在尝试连接到名为Inventory.accdb的Access数据库。 我在“.Open MyConn”这一行得到一个身份validation错误。 起初,我正在使用Jet提供程序,这也不起作用。 有谁知道如何克服这一点?

Set ShDest = Sheets("Sheet1") Set cnn = New ADODB.Connection With cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .Open MyConn End With 

我会build议一个开始代码:

 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