lcWasOnErr = ON("ERROR") TRY ON ERROR ALTER TABLE myCursor ADD COLUMN NewField C(10) ON ERROR &lcWasOnErr. =MessageBox(lcAlias + ": Added field '" + lcField + "' .") CATCH ON ERROR &lcWasOnErr. =MessageBox("*ERR* Failed to add field") ENDTRY