VBA能否查找并关闭其未创建的已打开ADODB数据库连接？

VBA没有内置能力直接枚举、获取超出变量作用域的遗留ADODB连接句柄。你单独运行dbconnect.Close失败的原因是，当前运行上下文的dbconnect是未初始化的新变量，和之前残留的、占着数据库锁的连接对象没有引用关系，无法操作目标对象。

无需重启电脑的临时解决方法 #

• 重启当前运行VBA的Office宿主程序（如Excel、Access）：所有遗留的ADODB连接对象都属于宿主进程的内存资源，关闭宿主程序会直接销毁进程内所有未释放的COM对象，自动释放数据库锁，操作成本远低于重启整机。
• 若不想重启宿主，可直接打开对应的Access数据库文件，执行压缩和修复数据库操作，绝大多数场景下可以强制释放残留的文件锁。

永久规避该问题的编码方案 #

核心逻辑是实现ADODB连接的单例复用，避免重复初始化连接，同时保证错误场景下的资源自动释放：

1. 定义模块级全局连接变量，统一封装连接获取逻辑，禁止业务代码自行初始化连接
2. 新增全局清理入口，程序整体退出时统一释放连接资源

示例代码如下：

' 模块顶部提前引用ADODB库，或使用晚绑定定义
Public dbconnect As Object ' 引用ADODB库时可写为ADODB.Connection
Private Const conn_str As String = "你的连接字符串"

' 统一获取连接的入口，所有业务代码调用该方法拿连接
Function GetDbConnection() As Object ' 引用ADODB库时可写为ADODB.Connection
    If dbconnect Is Nothing Then
        Set dbconnect = CreateObject("ADODB.Connection") ' 引用ADODB库时可写为New ADODB.Connection
        dbconnect.Open conn_str
    ElseIf dbconnect.State <> 1 Then ' adStateOpen常量值为1
        dbconnect.Close
        dbconnect.Open conn_str
    End If
    Set GetDbConnection = dbconnect
End Function

' 程序整体退出时调用，统一清理连接资源
Sub CleanupDbConnection()
    If Not dbconnect Is Nothing Then
        If dbconnect.State = 1 Then
            dbconnect.Close
        End If
        Set dbconnect = Nothing
    End If
End Sub

' 业务代码示例
Sub QueryShopLocation()
    On Error GoTo ErrHandler
    Dim conn As Object
    Set conn = GetDbConnection()
    
    ' 此处写你的查询逻辑，无需手动关闭conn
    
ExitHandler:
    Set conn = Nothing
    Exit Sub
ErrHandler:
    MsgBox "错误代码：" & Err.Number & "，错误信息：" & Err.Description
    Resume ExitHandler
End Sub

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