LISTING 1: Publisher.cls

Public Function RetrievePublisherbyID(ByVal pub_id As String) As Variant
Dim oRS As ADODB.Recordset
Dim sSQL As String

    On Error GoTo RetrievePublisherbyIDError
    
    If pub_id = "" Then GoTo RetrievePublisherbyIDError
    
    sSQL = "Select * from publishers where Pub_id = '" & pub_id & "'"
    Set oRS = RunSQLWithRS(sSQL)
    
    Set RetrievePublisherbyID = oRS
    
    ContextSetComplete
    Exit Function
RetrievePublisherbyIDError:
    ContextSetAbort
    RetrievePublisherbyID = "Retrieval failed"
    
End Function

Public Function RetrieveAllPublishers() As Variant
Dim oRS As ADODB.Recordset
Dim sSQL As String

    On Error GoTo RetrieveAllPublishersError
    
    sSQL = "Select * from publishers"
    Set oRS = RunSQLWithRS(sSQL)
    
    Set RetrieveAllPublishers = oRS
    
    ContextSetComplete
    Exit Function
RetrieveAllPublishersError:
    ContextSetAbort
    RetrieveAllPublishers = "Retrieval failed"
    
End Function