如何实现返回记录集的Visual C++ COM对象

STDMETHODIMP CPassRsObj::TestMethod(LPDISPATCH *ppRecordset )
{
_ConnectionPtr pConn;
_RecordsetPtr pRs;

pConn.CreateInstance(__uuidof(Connection));
pRs.CreateInstance(__uuidof(Recordset));
pConn->Open("DSN=pubs;uid=;pwd=;", 
(BSTR) NULL, (BSTR) NULL, -1);
//Client side cursor is required for disconnected recordsets
pRs->CursorLocation = adUseClient;
pRs->Open( "select * from authors",
pConn.GetInterfacePtr(),
adOpenKeyset, adLockOptimistic, -1);
// Disconnect the recordset
pRs->PutRefActiveConnection(NULL);
//Clone the recordset. 
//NOTE: Recordset to be cloned must support bookmarks
pRs->Clone(adLockOptimistic)->QueryInterface(IID_IDispatch, 
(void**) ppRecordset);
pRs->Close();
pConn->Close();
pRs = NULL;
pConn = NULL; 
return S_OK;
}

<%
Dim rsTest, oTestPassRs
Set oTestPassRs = Server.CreateObject("PassRs.PassRsObj")
Set rsTest = oTestPassRs.TestMethod()
Do 
Response.Write ( "Value in Record = " & rsTest(1) & "
" )
rsTest.MoveNext
Loop until rsTest.EOF
rsTest.Close
Set rsTest = Nothing
Set oTestPassRs = Nothing
%>