Ms access 从Access VBA处理不正确的SQL Server登录密码

我正在使用交换机数据库，使用下面的代码在多址数据库上一个接一个地运行宏。在Data1.accdb中运行updatea Data宏需要登录到SQL Server。如果用户输入了错误的密码，代码将冻结。关于如何优雅地处理不正确的登录尝试，有什么建议吗

Set objACC = GetObject("\Data Tables\Data1.accdb") 
objACC.DoCmd.RunMacro ("Update Data") 'run macro
objACC.Quit

编辑：看起来问题不是这样的 不正确的登录。我知道宏 当从屏幕上发射时工作 Data1.accdb数据库但当我杀死 它被冻结了有消息 关于无法创建 活动X组件。我会做得更多 研究并询问更连贯的问题 问我什么时候有更多的信息。在里面 同时我会打电话给你 处理正确答案时出错，因为 这确实让我知道 密码不正确

比如：

On Error GoTo Error_LogonError

    Dim db_path As String
    db_path = "\Data Tables\Data1.accdb"
    Set objACC = GetObject(db_path) 
    objACC.DoCmd.RunMacro ("Update Data") ''#run macro
    objACC.Quit

Error_LogonError:
    Debug.Print "hi, there was an error logging on to " & db_path

---

为什么不将宏转换为VBA代码，然后在其中进行适当的错误处理呢。