Hi Pete...

Yep, I got it to work as well. Tell me, which version do you think is more straighforward:

This one:

x=NEWOBJECT("myclass")

oconn = CreateObject("adodb.connection")
EventHandler(oconn,x)
oconn.open("pubs")



DEFINE CLASS myclass AS session OLEPUBLIC

	IMPLEMENTS ConnectionEvents IN "c:\program files\common files\system\ado\msado25.tlb"

	PROCEDURE ConnectionEvents_InfoMessage(pError AS VARIANT, adStatus AS VARIANT @, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ConnectionEvents_BeginTransComplete(TransactionLevel AS Number, pError AS VARIANT, adStatus AS VARIANT @, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ConnectionEvents_CommitTransComplete(pError AS VARIANT, adStatus AS VARIANT @, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ConnectionEvents_RollbackTransComplete(pError AS VARIANT, adStatus AS VARIANT @, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ConnectionEvents_WillExecute(Source AS STRING @, CursorType AS VARIANT @, LockType AS VARIANT @, Options AS Number @, adStatus AS VARIANT @, pCommand AS VARIANT, pRecordset AS VARIANT, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ConnectionEvents_ExecuteComplete(RecordsAffected AS Number, pError AS VARIANT, adStatus AS VARIANT @, pCommand AS VARIANT, pRecordset AS VARIANT, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ConnectionEvents_WillConnect(ConnectionString AS STRING @, UserID AS STRING @, Password AS STRING @, Options AS Number @, adStatus AS VARIANT @, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ConnectionEvents_ConnectComplete(pError AS VARIANT, adStatus AS VARIANT @, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

	PROCEDURE ConnectionEvents_Disconnect(adStatus AS VARIANT @, pConnection AS VARIANT) AS VOID
	* add user code here
	ENDPROC

ENDDEFINE

Or

oComutil = createobject("vfpcom.comutil")
x = CreateObject('PKTest')
oConn = CreateObject('ADODB.Connection')
ocomutil.BindEvents(oconn,x)

oRs = CreateObject('ADODB.RecordSet')
oConn.Open('pubs')
oRs.Open('Select * From authors',oConn)

DEFINE CLASS pktest as session

	PROCEDURE BeginTransComplete(TransactionLevel,pError,adStatus,pConnection)
	* Add user code here
	ENDPROC

	PROCEDURE CommitTransComplete(pError,adStatus,pConnection)
	* Add user code here
	ENDPROC

	PROCEDURE ConnectComplete(pError,adStatus,pConnection)
	* Add user code here
	ENDPROC

	PROCEDURE Disconnect(adStatus,pConnection)
	* Add user code here
	ENDPROC

	PROCEDURE ExecuteComplete(RecordsAffected,pError,adStatus,pCommand,pRecordset,pConnection)
	* Add user code here
	ENDPROC

	PROCEDURE InfoMessage(pError,adStatus,pConnection)
	* Add user code here
	ENDPROC

	PROCEDURE RollbackTransComplete(pError,adStatus,pConnection)
	* Add user code here
	ENDPROC

	PROCEDURE WillConnect(ConnectionString,UserID,Password,Options,adStatus,pConnection)
    MessageBox("Connecting!")
	ENDPROC

	PROCEDURE WillExecute(Source,CursorType,LockType,Options,adStatus,pCommand,pRecordset,pConnection)
	* Add user code here
	ENDPROC


ENDDEFINE