这个怎么修改？出现“集合中的关键字不唯一”

Question

  For j = 1 To Adodc2.Recordset.RecordCount
     Set nodX = TreeView1.Nodes.Add(, , Adodc2.Recordset.Fields("dq").value, Adodc2.Recordset.Fields("dq").value, 1)  '父列表
        '子列表
           Adodc1.RecordSource = "select * from ywy where dq='" & Adodc2.Recordset.Fields("dq").value & "'"
            Adodc1.Refresh
            For i = 1 To Adodc1.Recordset.RecordCount
               Set nodX = TreeView1.Nodes.Add(Adodc2.Recordset.Fields("dq").value, tvwChild, "child" & i, Adodc1.Recordset.Fields("xm").value + "(" + Adodc1.Recordset.Fields("gh").value + ")", 2)
              Adodc1.Recordset.MoveNext
           Next   Adodc2.Recordset.MoveNext
  Next出现“集合中的关键字不唯一”这个是两层的树层结构。

Answer 1

adodc2保存父层结构，
adodc1保存子层结构

Answer 2

            For i = 1 To Adodc1.Recordset.RecordCount 
               Set nodX = TreeView1.Nodes.Add(Adodc2.Recordset.Fields("dq").value, tvwChild, "child" & j & i, Adodc1.Recordset.Fields("xm").value + "(" + Adodc1.Recordset.Fields("gh").value + ")", 2) 
              Adodc1.Recordset.MoveNext 
           Next