PUBLIC oFa  as CursorAdapter 

oFa = CREATEOBJECT('_ca_familia')   && my CA classe save conection object in _screen.__sqlconexao property
oFa.CursorFill()
 = CURSORSETPROP("Buffering",5,"familia")

INSERT INTO familia (cd_familia,ds_familia) values([0001],[teste])
llRet = TABLEUPDATE(.T.,.T.,"familia")

IF llRet
   LOCAL oRs AS 'ADODB.RecordSet'
   LOCAL lnRet

   oRs = CREATEOBJECT('ADODB.RecordSet')
   oRs.CursorLocation = 2  && adUseServer
   oRs.CursorType = 0  && adOpenForwardOnly
   oRs.LockType = 1  && adLockReadOnly
   oRs.Open("SELECT scope_identity() AS 'id'",_screen.__sqlconexao )
   lnRet = oRs.Fields(0).value    && Return NULL.
   oRs.Close() 
   oRs = NULL

ENDIF