Как установить параметр «Использовать устаревшее шифрование» в файле доступа при создании из Excel (с использованием VBA)

Question

У меня есть следующий код, который создаст доступ к файлам из данных Excel.

Я хотел бы автоматически установить Use legacy encryption с помощью VBA перед установкой пароля.

''Option Explicit

Public Sub CreatePasswordProtectedDatabase()
    Dim strPath As String
    strPath = "D:\VBA\NewDB22.mdb"

    'create new Access application
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")

    'objAccess.Visible = True 'show or hide Access

    'create new database
    objAccess.NewCurrentDatabase strPath

    'example to add a table
    objAccess.DoCmd.RunSQL "CREATE TABLE Test", False
    objAccess.DoCmd.RunSQL "ALTER TABLE Test add Gender char(255)", False
    objAccess.DoCmd.RunSQL "ALTER TABLE Test add Gender2 char(255)", False
    'set password
    Dim DbPassword As String
    DbPassword = "1234"
    objAccess.CurrentProject.Connection.Execute "ALTER DATABASE PASSWORD " & DbPassword & " NULL"

    strTable = "Test"     ' name of table you want in your database
    strFile = "C:\\VBA\tn.xlsx" ' you will get the file name from user selection
    objAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strFile, True
    'close database
    objAccess.CloseCurrentDatabase

    'quit Access application
    objAccess.Quit
End Sub

Как можноЯ достигну этого?