Depois de integrar procedure pensei.... porque não?
Criei um método simples:
METHOD ReturnValue( cCmd ) CLASS ADOClass
LOCAL xResultado, oRs
oRs := ::ExecuteCmd( "SELECT " + cCmd )
xResultado := oRs:Fields( 0 ):Value
oRs:Close()
RETURN xResultado
O barato é doido...
Vejo Infinitas possibilidades....