Excel VBA - 如何强制关闭 ADO 连接

VBA
Sub ReadDataFromDatabase()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\Database.accdb;"
    
    ' 打开连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行 SQL 查询
    sql = "SELECT * FROM TableName"
    rs.Open sql, conn
    
    ' 读取数据
    Do Until rs.EOF
        ' 处理数据
        Debug.Print rs.Fields(0).Value
        rs.MoveNext
    Loop
    
    ' 关闭记录集
    rs.Close
    
    ' 强制关闭连接
    conn.Close
    
    ' 释放资源
    Set rs = Nothing
    Set conn = Nothing
End Sub