Question

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

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

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

Answer 1

我会建议一个开始代码：

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

与Access DB的ADODB连接未在vba中打开

1 个答案: