I'm not a C++ programmer so excuse me for asking something that may be
obvious or maybe in the wrong newsgroup.

I would like to test the performance difference between using a VB component
running under COM+ and using a thread neutral (TNA) ATL component running
under COM+ to connect to a SQL server database, execute a query and return
the resulting recordset.

Does anyone have ATL sample code that do this? Preferrably a piece that
implement IObjectControl with support for object pooling. If it use OLEDB
instead of ADO but return a RS that can be used by ADO that would also be
good.

Thank's in advance,
Kristofer

Oh, and in case anyone wonder why I want to test this, it is because of this
KB article:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q291837

Here's VB sample code for what I want to do (but in a thread neutral ATL
component):

Implements COMSVCSLib.ObjectControl

Public Function GetReadonlyRS(ByVal strConnect As String, _
                              ByVal strSQL As String _
                             ) As ADODB.Recordset

    Dim cnConn      As ADODB.Connection
    Dim rsResult    As ADODB.Recordset

    'create and open a db connection
    Set cnConn = New ADODB.Connection
    With cnConn
        .ConnectionString = strConnect
        .CursorLocation = adUseClient
        .Open
    End With

    'create a new rs, set cursor type, lock type, cursor location etc
    Set rsResult = New ADODB.Recordset
    With rsResult
        .LockType = adLockReadOnly
        .CursorType = adOpenStatic
        .CursorLocation = cnConn.CursorLocation
        Set .ActiveConnection = cnConn
    End With

    'execute the query
    rsResult.Open strSQL

    'disconnect the rs
    Set rsResult.ActiveConnection = Nothing

    'set the result to the result rs
    Set GetReadonlyRS = rsResult

    'release and cleanup the local result rs and the connection
    Set rsResult = Nothing
    cnConn.Close
    Set cnConn = Nothing

    'tell COM+ we're done
    GetObjectContext.SetComplete
End Function

Private Sub ObjectControl_Activate()
    'nothing
End Sub

Private Function ObjectControl_CanBePooled() As Boolean
    ObjectControl_CanBePooled = True
End Function

Private Sub ObjectControl_Deactivate()
    'nothing
End Sub