TREEVIEW问题,请教!!!

Set xnode = TV1.Nodes.Add(, , "all", "核算项目", "UnSelected") '根节点
           Do Until rs1.EOF
          If Len(rs1.Fields("dm")) <= 3 Then
          Set xnode = TV1.Nodes.Add("all", tvwChild, "all" & CStr(rs1.Fields("id")), rs1.Fields("mc"), "Master") '第2层
          End If
          Do Until rs2.EOF
           If Len(rs2.Fields("dm")) > 3 And Left$(rs2.Fields("dm"), 3) = rs1.Fields("dm") Then
           Set xnode = TV1.Nodes.Add("all" & CStr(rs1.Fields("id")), tvwChild, "cld" & CStr(rs2.Fields("id")), rs2.Fields("mc"), "Master") '第三层
           End If
           rs2.MoveNext
           Loop
          rs1.MoveNext
          Loop
为什么只有第二层的一个节点前面有加号变为父节点,其他两个节点都是子节点,没变父节点的????