oEventSink = CreateObject('PKTest')
oConn = CreateObject('ADODB.Connection')
oRs = CreateObject('ADODB.RecordSet')
oConn.Open('MYDSN')
lRet = EventHandler(oRs,oEventSink)
If lRet
oRs.Open('Select * From foo',oConn)
EndIf
Define Class PKTest as Session
IMPLEMENTS _Recordset In ADODB.Recordset
Procedure _Recordset_Open(whatever parameters)
I thought this code would fire when I issued oRs.Open('Select * From foo',oConn)
EndProc
All the rest of the interface stuff here...
EndDefine
I just tried it with RecordsetEvents and it worked, I need to read up more
thank you very much for your time