<!--shcode--><pre><code class='vb'>Dim V As Variant
V = Doc.GetItemValue(READERS_FIELD)
V = ArrayAppend(V, "[Admin]")
V = ArrayUnique(V)
Call Doc.ReplaceItemValue(READERS_FIELD, V)
Call Doc.Save(True, False)[/CODE]
Не?
Можно, по желанию, одной строчкой записать.
Можно, по желанию, ещё Fulltrim сделать.