为什么不能成组的删除记录 ？

Question

If pRst("fretreekey") <> "" Then
                Set nodX = objTV.Nodes.Add(Trim(pRst("freTreeKey")), tvwChild, Trim(pRst("TreeKey")), Trim(pRst("caption")))
            Else
                Set nodX = objTV.Nodes.Add(, tvwChild, Trim(pRst("TreeKey")), Trim(pRst("caption")))
            End If
            If strFilterCon <> "" Then strFilterCon = strFilterCon & " or "
            strFilterCon =strFilterCon  "treekey='" & Trim(pRst("Treekey")) & "'"
            
            pRst.Filter = strFilterCon
            pRst.Delete adAffectGroup ‘这里出错 
            strFilterCon = ""
            pRst.MoveNext‘----------------
pRst.Delete adAffectGroup ‘这里出错