Hi Dorin

Thanks for your idea. I have implemented as follows:

lnOldArea = SELECT(0)

SQLEXEC(lnConnectHandle,[SELECT RDB$FIELD_NAME, RDB$RELATION_NAME,RDB$DESCRIPTION FROM RDB$RELATION_FIELDS WHERE RDB$RELATION_NAME='] + lcTable + ['])

...
SELECT sqlresult
LOCATE FOR ALLTRIM(rdb_field_name) = ALLTRIM(lcField)

ALINES(laTemp, sqlresult.rdb_description, .T.)

...
lcCaption = IIF(ASCAN(laTemp, ":C:") = 0, "", STRTRAN(laTemp[ASCAN(laTemp, ":C:")], ":C:", ""))
lcComment = IIF(ASCAN(laTemp, ":D:") = 0, "", STRTRAN(laTemp[ASCAN(laTemp, ":D:")], ":D:", ""))
...
SELECT (lnOldArea)

The description in the table (I am using Marathon) will look something like this:

:C:Name
:D:The Name of the Account
:DC:acboautocomplete
:DCL:libs\avsocontrols.vcx

>To get fields descriptions you must query the system table rdb$relation_fields
>

>table_name = ...
>SQLEXEC(1,[SELECT RDB$FIELD_NAME, RDB$RELATION_NAME,RDB$DESCRIPTION FROM RDB$RELATION_FIELDS WHERE RDB$RELATION_NAME=?table_name])
>