ADODB.Recordset调试打印语句被忽略，Excel SQL查询问题求助

看起来你的代码里有几个关键问题导致后续的Debug.Print和逻辑代码根本没执行，我来一步步帮你排查修复：

1. 连接字符串的致命拼写错误 #

你的连接字符串里把Provider写成了Provide，这会直接导致ADODB连接失败，后面的所有代码（包括Debug.Print）都不会执行。另外，字符串末尾多了一个多余的分号，也会导致连接格式无效。

修正后的连接字符串：

sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath _
& ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

2. 缺少错误处理，无法定位问题 #

如果没有错误捕获，当连接或查询出错时，代码会直接终止或者跳过后续逻辑，你根本不知道哪里出问题。建议添加错误处理来捕获异常：

On Error GoTo ErrorHandler
' 你的核心代码...

Exit Sub
ErrorHandler:
Debug.Print "Error: " & Err.Number & " - " & Err.Description

3. 未检查Recordset是否成功打开及有记录 #

即使连接成功，SQL查询可能返回空记录集，或者打开失败，这时候访问rs2(0)会报错，导致代码中断。所以要先判断记录集状态：

rs2.Open vSql, conn
' 先检查记录集是否打开且有数据
If rs2.State = adStateOpen And Not rs2.EOF Then
    Debug.Print "Hello"
    Debug.Print "The value is: " & rs2(0)
    ' 你的后续逻辑...
Else
    Debug.Print "No records found or recordset failed to open"
    ws.Cells(1, 13).Value = "No entry found"
End If

完整修正后的代码 #

Dim conn As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
Dim DBPath As String
Dim sconnect As String
Dim vSql As String
Dim ws As Worksheet

' 替换成你实际要操作的工作表
Set ws = ThisWorkbook.Worksheets("YourSheetName")

DBPath = ThisWorkbook.FullName
' 修复连接字符串的拼写和格式问题
sconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath _
& ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

On Error GoTo ErrorHandler
conn.Open sconnect

vSql = "SELECT AMOUNT, COUNT(AMOUNT) FROM [MU_v2#7$A1:F192] WHERE TBL = '12.0' AND ROWNAME = '30' AND COLNAME = '45'"
rs2.Open vSql, conn

' 确保记录集有效再执行后续操作
If rs2.State = adStateOpen And Not rs2.EOF Then
    Debug.Print "Hello"
    Debug.Print "The value is: " & rs2(0)
    If rs2(1) = 0 Then
        ws.Cells(1, 13).Value = "No entry found"
    Else
        ' 补全你的Else分支代码，比如：
        ws.Cells(1, 13).Value = rs2(0)
    End If
Else
    Debug.Print "Query returned no records or failed to execute"
    ws.Cells(1, 13).Value = "No entry found"
End If

' 清理资源
Cleanup:
If rs2.State = adStateOpen Then rs2.Close
If conn.State = adStateOpen Then conn.Close
Set rs2 = Nothing
Set conn = Nothing
Exit Sub

' 错误捕获
ErrorHandler:
Debug.Print "Error occurred: " & Err.Number & " - " & Err.Description
GoTo Cleanup

为什么Debug.Print被忽略？ #

最可能的原因是连接字符串拼写错误导致conn.Open失败，如果没有错误处理，代码会直接终止在conn.Open这一行，后面的Debug.Print根本没机会运行。加上错误处理后，你就能看到具体的错误信息，快速定位问题。

另外，还要确认你的SQL语句是否正确：比如[MU_v2#7$A1:F192]的工作表名是否正确，字段TBL、ROWNAME、COLNAME是否存在于该区域，以及WHERE条件的值类型是否匹配（比如如果TBL是数字类型，应该去掉单引号写成TBL = 12.0）。

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