oComutil = createobject("vfpcom.comutil")
oEventSink = CreateObject('PKTest')
oConn = CreateObject('ADODB.Connection')
oRs = CreateObject('ADODB.RecordSet')
ocomutil.BindEvents(ors,oeventsink)
oConn.Open('pubs')
oRs.Open('Select * From authors',oConn)


DEFINE CLASS pktest  AS session


	PROCEDURE EndOfRecordset(fMoreData,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE FetchComplete(pError,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE FetchProgress(Progress,MaxProgress,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE FieldChangeComplete(cFields,Fields,pError,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE MoveComplete(adReason,pError,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE RecordChangeComplete(adReason,cRecords,pError,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE RecordsetChangeComplete(adReason,pError,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE WillChangeField(cFields,Fields,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE WillChangeRecord(adReason,cRecords,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE WillChangeRecordset(adReason,adStatus,pRecordset)
	* Add user code here
	ENDPROC


	PROCEDURE WillMove(adReason,adStatus,pRecordset)
	* Add user code here
	ENDPROC


ENDDEFINE