Access数据库SELECT查询问题：Execute报错与OpenRecordset未返回结果

你现在的问题出在两个关键地方：一是SQL语句的语法有误，二是你直接把SQL字符串写到单元格里，完全没去读取OpenRecordset返回的记录集数据。我来帮你一步步修正：

问题根源拆解 #

1. SQL语法错误：你写的select Email from Salesforce where ID equals ActiveCell.Value里，SQL的条件判断必须用=而非equals，而且要正确拼接ActiveCell.Value的值（字符串类型的ID需要加单引号，数字类型则不用）。
2. 未读取记录集数据：OpenRecordset的作用是执行查询并返回一个包含结果的记录集对象，你需要从这个对象里提取字段值，而不是直接把SQL语句赋值给单元格。

修正后的代码示例（以Access VBA为例） #

Sub FetchSalesforceEmail()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String
    Dim targetID As Variant
    
    ' 获取当前单元格的ID值，先做非空检查
    targetID = ActiveCell.Value
    If IsEmpty(targetID) Then
        MsgBox "请选中包含Salesforce ID的单元格！"
        Exit Sub
    End If
    
    ' 构建正确的SQL语句：注意ID如果是字符串类型要加单引号，数字则不用
    sql = "SELECT Email FROM Salesforce WHERE ID = '" & targetID & "'"
    
    ' 错误处理机制
    On Error GoTo Cleanup
    
    ' 连接到数据库（如果是Access环境用CurrentDb，其他环境需调整连接方式）
    Set db = CurrentDb
    
    ' 执行查询得到记录集
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)
    
    ' 检查是否有匹配的记录
    If Not rs.EOF Then
        ' 从记录集中读取Email字段的值，写入目标单元格
        ActiveCell.Offset(0, 13).Value = rs!Email
    Else
        ' 没有找到匹配记录时的提示
        ActiveCell.Offset(0, 13).Value = "无匹配邮箱"
    End If

Cleanup:
    ' 释放资源，避免内存泄漏
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
    If Not db Is Nothing Then
        db.Close
        Set db = Nothing
    End If
    ' 捕获并提示错误
    If Err.Number <> 0 Then
        MsgBox "查询失败：" & Err.Description
    End If
End Sub

关键注意事项 #

• SQL语句拼接：如果你的Salesforce ID是数字类型，去掉单引号即可：sql = "SELECT Email FROM Salesforce WHERE ID = " & targetID。错误的拼接会导致查询失败或者返回空结果。
• 记录集读取：用rs!Email或者rs("Email")来获取字段值，这才是查询返回的实际数据，而不是sql变量本身。
• 资源释放：必须关闭并销毁Recordset和Database对象，否则会占用系统资源。

如果是在Excel中连接Salesforce（用ADODB） #

如果你的代码是在Excel里运行，需要用ADODB连接（需提前配置Salesforce ODBC驱动），示例代码如下：

Sub FetchSalesforceEmail_Excel()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    Dim targetID As Variant
    
    targetID = ActiveCell.Value
    If IsEmpty(targetID) Then
        MsgBox "请选中包含Salesforce ID的单元格！"
        Exit Sub
    End If
    
    sql = "SELECT Email FROM Salesforce WHERE ID = '" & targetID & "'"
    
    On Error GoTo Cleanup
    
    ' 初始化连接（根据你的ODBC配置调整连接字符串）
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DRIVER={Salesforce ODBC Driver};SERVER=https://login.salesforce.com;UID=你的用户名;PWD=你的密码;TOKEN=你的安全令牌;"
    conn.Open
    
    Set rs = New ADODB.Recordset
    rs.Open sql, conn
    
    If Not rs.EOF Then
        ActiveCell.Offset(0, 13).Value = rs("Email").Value
    Else
        ActiveCell.Offset(0, 13).Value = "无匹配邮箱"
    End If

Cleanup:
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
    If Not conn Is Nothing Then
        conn.Close
        Set conn = Nothing
    End If
    If Err.Number <> 0 Then
        MsgBox "查询失败：" & Err.Description
    End If
End Sub

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