USE MyTable SHARED IN 0 FldsCnt = AFIELDS (aFlds, "MyTable") FldExist = .F. FOR I = 1 TO FldsCnt IF aFlds [I, 1] == "MYCOL" FldExist = .T. EXIT ENDIF ENDFOR IF NOT FldExist USE IN MyTable USE MyTable EXCLUSIVE IN 0 ALTER TABLE MyTable ADD COLUMN MyCol C (20) USE IN MyTable ENDIFHTH