Откройте ACCESS 2013 с помощью Excel VBA «Неверный пароль»

Question

Может кто-нибудь посоветовать, почему я постоянно получаю уведомление "Неверный пароль"? Пароль правильный и если все сделано вручную, работает отлично. Я использую ACCESS 2013 и Excel 2013.

Sub OpenACCESS()
    Dim cn As Object, rs As Object
    Dim intColIndex As Integer
    Dim DBFullName As String
    Dim TargetRange As Range

    DBFullName = "C:\MYDATA.accdb"

    Application.ScreenUpdating = False

    Set TargetRange = Workbooks("IMD_Calculator.xlsm").Sheets("Operate").Range("A1")

    Set cn = CreateObject("ADODB.Connection")

    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DBFullName & ";" & "Jet OLEDB:Database Password=XXX#1;"

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM 2017, cn, , , adCmdText"

    For intColIndex = 0 To rs.Fields.Count - 1
    TargetRange.Offset(1, intColIndex).Value = rs.Fields(intColIndex).Name
    Next

    TargetRange.Offset(1, 0).CopyFromRecordset rs

    Application.ScreenUpdating = True
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    On Error GoTo 0
    Exit Sub

End Sub

Спасибо