关于Treeview与数据库的问题

Question

下面是我的代码：
Dim key, key1, Text, BH, StrTemp As String
  Dim Nod As Node             '定义一个节点变量
  Dim StrSQL As String
  Dim StrSQLa As String
  StrSQL = "select * from 树视图菜单 "
  If RsTreemenu.State = adStateClosed Then
        RsTreemenu.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText   '//打开记录集
    End If
     If RsTreemenu.RecordCount > 0 Then
        RsTreemenu.MoveFirst
          Do While RsTreemenu.EOF = False                 '循环读取第1层节点中的数据信息
            key = Trim(RsTreemenu.Fields(1))
            Text = RsTreemenu.Fields(1)
            StrTemp = RsTreemenu.Fields(1)
            Set node1 = TreeView1.Nodes.Add(, tvwChild, key, Text, 0)   '给第1层节点赋与数值
       StrSQLa = "select * from 树视图子菜单 where 主菜单名称 = '" & StrTemp & "'"
       If RsTreeminimenu.State = adStateClosed Then
         RsTreeminimenu.Open StrSQLa, DBCON, adOpenKeyset, adLockPessimistic, adCmdText   '//打开记录集
       End If
       If RsTreeminimenu.RecordCount > 0 Then
        RsTreeminimenu.MoveFirst
        Do While RsTreeminimenu.EOF = False        '循环读取第2层节点中的数据信息
        key = Trim(RsTreeminimenu.Fields(1))
        Text = RsTreeminimenu.Fields(1)
        Set Node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, Text, 0)   '给第2层节点赋与数值
        RsTreeminimenu.MoveNext
        Loop
       Else
      End If
      RsTreemenu.MoveNext
    Loop
    Else
  End If
运行时发生错误："Key is not unique in collection"
请大家帮忙看下到底是哪里出错了

Answer 1

问题已解决了，在RsTreemenu.MoveNext后添加一句：RsTreeminimenu.Close即可