I am creating classes to work with ADO(soon it will publish them.). Use VFPCOM.DLL to be able to catch the events that ADO fire, until here there is no problem until drop the class in a form, and it is not possible to close it without emitting CLEAR ALL...

*-- Sample code..
TADODATOS.BaseClass=Custom

TADODATOS.Init
WITH this
.oVFOCOMM=Createobject(...
.oAdo=Createobject('adodb.recordset')
.VfpComm.BindEvents(...

etc....
ENDWITH


TADODATOS.DESTROY

***************************
this not call in Form1.Release or Form1.Destroy!, only
in CLEAR ALL...
********************
WITH this
.VfpComm.UnBindEvents(...
.oAdo=.NULL.
.oVFOCOMM=.NULL.
etc....
ENDWITH