PUBLIC oFa as CursorAdapter oFa = CREATEOBJECT('_ca_familia') && minha Classe CA salva o Objecto Connection na propriedade _screen.__sqlconexao oFa.CursorFill() = CURSORSETPROP("Buffering",5,"familia") INSERT INTO familia (cd_familia,ds_familia) values([0001],[teste]) llRet = TABLEUPDATE(.T.,.T.,"familia") 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 && retorna NULL oRs.Close() oRs = NULL RETURN lnRet