求助!

eyesonmeq

我想把一个用户组加到readers域中,下面代码有什么错,我该怎么写才对呢?请高手指点!
Set uidoc=w.currentdocument． Set curdoc=uidoc.document． Set item=curdoc.GetFirstItem("readers")
setquery="form=""FMManager"""
Set col=curdb.search(setquery,datetime,0)
If col.count>0 Then
    For j=1 To col.count
          Set doc1=col.GetNthdocument．j)
          Call item.AppendToTextList(doc1.Fdmanagers(0))
    Next