Привет всем!
Помогите, пожалуйста.
Пытаюсь подключится с зашифрованной БД из Excel. Пароль 100% правильный, но получаю ошибку "Ошибочный пароль". С чем это может быть связано?

Sub DBConnetct()
    Dim MyDatabase As DAO.Database
    Dim rsCountry As DAO.Recordset
    Dim dbpath As String
    Dim wrb As Workbook
    Dim sht As Worksheet
    Dim c As Integer

    dbpath = "C:\TestDB.accdb"
    Set MyDatabase = DBEngine.OpenDatabase(dbpath, False, False, ";pwd=123")
    Set rsCountry = MyDatabase.OpenRecordset("SELECT * FROM tCountry")
    
    Set wrb = Workbooks.Add
    Set sht = wrb.Sheets(1)
    
    With sht
        .Name = "Country"
        .Range("A2").CopyFromRecordset rsCountry
        For c = 1 To rsCountry.Fields.Count
            sht.Cells(1, c).Value = rsCountry.Fields(c - 1).Name
        Next c
    End With
End Sub

http://www.sql.ru/forum/1206294/podkluchenie-k-bd-access-cherez-excel-oshibochnyy-parol