使用Debug.Print调试窗口？已经这样做了，事实上在抛出错误之前没有调用它们。。。因此，我无法告诉您strSQL的结果值是什么：/t请尝试反编译您的项目，然后重新编译它 Public Function CloseRecordset() As Bool

---

使用

Debug.Print

调试窗口？已经这样做了，事实上在抛出错误之前没有调用它们。。。因此，我无法告诉您strSQL的结果值是什么：/t请尝试反编译您的项目，然后重新编译它

Public Function CloseRecordset() As Boolean
    On Error GoTo ErrorHandler
    
    m_rs.Close
    CloseRecordset = True
    
Done:
    Set m_rs = Nothing
    Exit Function
ErrorHandler:
    If eh.LogError("RecordsetWrapper.CloseRecordset") Then Resume
End Function


Public Property Get Recordset() As DAO.Recordset2
    Set Recordset = m_rs
End Property


Private Sub Class_Terminate()
    If Not m_rs Is Nothing Then
        m_rs.Close
        Set m_rs = Nothing
    End If
End Sub

Public Function OpenRecordset(Domain As String, _
                              Optional Criteria As String = "", _
                              Optional OrderBy As String = "", _
                              Optional RecordsetType As DAO.RecordsetTypeEnum = DAO.RecordsetTypeEnum.dbOpenDynaset, _
                              Optional RecordsetOptions As DAO.RecordsetOptionEnum = DAO.RecordsetOptionEnum.dbConsistent _
                              ) As Boolean
    
    On Error GoTo ErrorHandler
    
    If Not m_rs Is Nothing Then
        CloseRecordset
    End If
    
    Dim strSQL As String
    strSQL = "SELECT * FROM [" & Domain & "]"
    
    If Criteria <> "" Then
        strSQL = strSQL & " WHERE " & Criteria
    End If    

    If OrderBy <> "" Then
        strSQL = strSQL & " ORDER BY " & OrderBy
    End If
    
    Set m_rs = CurrentDb.OpenRecordset(strSQL, RecordsetType, RecordsetOptions)
    OpenRecordset = True

Done:
    Exit Function
ErrorHandler:
    Debug.Assert m_rs Is Nothing
    
    If eh.LogError("RecordsetWrapper.OpenRecordset", "strSQL = " & Chr(34) & strSQL & Chr(34)) Then Resume
End Function

Function Delete(ProzessspezifikationID As Long) As Boolean
    Dim rsw As New RecordsetWrapper
    If rsw.OpenRecordset(Domain:="Prozessspezifikationen", Criteria:="[Prozessspezifikation ID] = " & ProzessspezifikationID) Then
        Delete = rsw.Delete
    End If
End Function