执行包含Err.Description的VBA代码时出现“Compile Error: Invalid Qualifier”错误的解决方法

这个错误的核心原因是：当你使用ADODB（ActiveX Data Objects）进行数据库操作时，ADO的错误信息并不完全通过VBA原生的Err对象返回——ADO会把数据库相关的错误存储在ADODB.Connection对象的Errors集合中。直接调用Err.Description时，编译器可能因为ADODB库的引用产生歧义，或者无法正确识别Err作为内置错误对象，从而抛出"Invalid Qualifier"错误。

两种可行的修复方案： #

方案1：使用ADO的Errors集合获取完整错误信息（推荐）

ADO操作可能返回多个嵌套错误，遍历Errors集合能获取更精准的数据库错误详情，这也是处理ADO错误的标准做法。修改你的错误处理块如下：

Private Sub QueryDBIntoListbox(ByRef QueryString As String)
    Dim DBPath As String
    DBPath = ThisWorkbook.Path & "\" & "ChangeLogDB.accdb"
    Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Dim dbConnection As String ' 补上之前缺失的变量声明
    On Error GoTo DBError
    
    dbConnection = "Provider = Microsoft.ACE.OLEDB.12.0; data source=" & DBPath
    db.Open dbConnection
    sql = QueryString
    'More irrelevant code here
    rs.Close
    db.Close
    GoTo EndSub

DBError:
    Dim adoErr As ADODB.Error
    Dim errorMsg As String
    errorMsg = "An error occurred while executing the query." & vbCrLf & vbCrLf
    
    ' 遍历ADO错误集合，获取所有相关错误信息
    For Each adoErr In db.Errors
        errorMsg = errorMsg & "Error Code: " & adoErr.Number & vbCrLf & _
                   "Description: " & adoErr.Description & vbCrLf & vbCrLf
    Next adoErr
    
    ' 可选：补充VBA原生错误信息作为参考
    errorMsg = errorMsg & "VBA Error Info: " & VBA.Err.Description
    
    MsgBox errorMsg, vbCritical, "Database Query Error"
    
    ' 清空ADO错误集合，避免影响后续操作
    db.Errors.Clear

EndSub:
    ' 确保即使出错也能关闭资源
    If rs.State <> adStateClosed Then rs.Close
    If db.State <> adStateClosed Then db.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

方案2：明确指定VBA原生Err对象

如果你只想快速修复编译错误，可以通过VBA.Err明确指定使用VBA内置的错误对象，消除编译器的歧义：

DBError:
    MsgBox "An error occurred while executing the query." & vbCrLf & VBA.Err.Description, vbOKOnly, "Database Query Error"

额外注意事项： #

• 别忘了声明所有变量（比如你的代码里dbConnection没有声明，建议加上Dim dbConnection As String），开启Option Explicit可以强制变量声明，避免这类隐性问题。
• 错误处理结束后，一定要确保关闭并释放ADODB的Connection和Recordset对象，防止资源泄漏。

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