Public Function GetMyRecordset(ByRef ioobjConn As ADODB.Connection, _
                                                 ByVal pstrMyPar As String) As Recordset

    Const METHOD_NAME As String = "GetMyRecordset"

    On Error GoTo MethodExit

    Dim objCmd As New ADODB.Command
    Dim objRcrdst As New ADODB.Recordset
    Dim strSQL As String
    
    Set objCmd.ActiveConnection = ioobjConn
    
    strSQL = "SELECT  * " & vbCr & _
                   "FROM Titles" & vbCr & _
                   "WHERE PubID< " & pstrMyPar & ";"
                   
    objCmd.CommandType = adCmdText
    objCmd.CommandText = strSQL
    
    Set objRcrdst = objCmd.Execute
    Set GetMyRecordset = objRcrdst

MethodExit:

    If Err.Number <>  0  Then
        MsgBox "Error " & CStr(Err.Number) & " in " & METHOD_NAME & vbCr & Err.Description
    End If

End Function