迁移Access数据库至新路径后DoCmd.OpenQuery与RunMacro执行失败求助

我以Excel为前端搭配Access数据库，采用ADO+DAO组合连接：ADO负责数据检索、更新与查看，DAO通过OpenQuery和RunMacro方法执行Access查询或宏。
将数据库从原路径Y:\1_Year_2018\2_Admin_Main_Files\0_Database\2023\Database.accdb迁移至新路径P:\Database.accdb后，修改路径变量的ADO连接可正常工作，但DAO连接成功打开数据库后，执行.DoCmd.OpenQuery或.DoCmd.RunMacro时失败，报错为The OpenQuery action was cancelled或The RunMacro action was cancelled。
Access数据库与Excel VBA代码均未改动，仅变更了数据库存储位置。已尝试重新引用库、重写代码、重建并重命名查询，问题依旧；将数据库迁回原路径则一切正常，请问是否存在未察觉的隐藏关联？

附VBA代码 #

Dim AC As Object
Set AC = CreateObject("Access.Application")
Dim strDatabasePath As String
strDatabasePath = "P:\Database.accdb"

'    strDatabasePath = ThisWorkbook.Path & "\Database.accdb"

Call ProgressBar.Progress(5)
Application.Wait (Now + TimeValue("0:00:01"))

With AC
    .OpenCurrentDatabase (strDatabasePath)

    Call ProgressBar.Progress(30)
    Application.Wait (Now + TimeValue("0:00:01"))

    Dim db As Object

    Call ProgressBar.Progress(50)
    Application.Wait (Now + TimeValue("0:00:01"))

    Set db = .CurrentDb

    Call ProgressBar.Progress(70)
    Application.Wait (Now + TimeValue("0:00:01"))

    .DoCmd.SetWarnings False
    .DoCmd.OpenQuery "qryUpdateInternalInvListing1"
    .DoCmd.OpenQuery "qryUpdate_ItnlNo_toCarrierInvSummary1"
  
    .DoCmd.SetWarnings True
    .Quit
End With
ActiveWorkbook.RefreshAll

Call ProgressBar.Progress(90)
Application.Wait (Now + TimeValue("0:00:01"))
Call ProgressBar.Progress(100, False)
ProgressBar.Hide

Application.ScreenUpdating = True

• Access信任中心拦截：新路径P:\可能未被加入Access信任位置。Access默认会阻止非信任路径下数据库的操作，即使DAO成功打开数据库，执行查询/宏时仍会被拦截。打开Access，依次进入「文件」→「选项」→「信任中心」→「信任中心设置」→「受信任位置」，添加P:\为信任位置并勾选「同时信任此位置的子文件夹」。
• 查询隐藏路径依赖：检查报错的查询（如qryUpdateInternalInvListing1），确认是否包含硬编码的原Y:\路径引用——比如查询依赖的链接表、外部数据源仍指向旧路径，迁移后失效导致执行被取消。可通过Access「数据库工具」→「文档管理器」生成对象依赖报告，排查隐藏关联。
• 文件权限不足：新路径P:\的权限可能与原路径不同，当前用户对P:\Database.accdb仅有读取权限，无写入或执行权限。右键数据库文件，在「属性」→「安全」中确认当前用户拥有「修改」和「读取&执行」权限。
• 静默实例交互限制：代码中通过CreateObject("Access.Application")创建的是后台静默运行的Access实例，若查询/宏涉及弹窗、交互操作，会被自动取消。可添加.Visible = True显示Access窗口，观察执行时是否有弹窗提示（如数据更新确认、错误提示），再针对性处理：

  With AC
      .Visible = True ' 显示Access窗口排查问题
      .OpenCurrentDatabase (strDatabasePath)
      ' 后续代码不变
  End With
  

• 数据库轻微损坏：迁移过程中可能导致数据库轻微损坏，虽能正常打开但执行查询失败。在Access中打开P:\Database.accdb，执行「数据库工具」→「压缩和修复数据库」后重新测试。

内容的提问来源于stack exchange，提问作者Ryan Cho