求助!

eyesonmeq

我想把一个用户组加到readers域中，怎么老是报Type mistatch 我的代码如下
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