将数组中的值赋给TREEVIEW的结点???

在模块中通过一个过程，将数组一个表中列的值赋给字符类型数组xm(),然后在设置treeview控件时，想将值赋给结点，代码是：
   
过程（）  
  Dim nodX As Node '声明对象变量。
  Dim q As Integer '计数器
  Set nodX = TreeView1.Nodes.Add(, , "R", "综合信息") '''''''''''''主级   
  Set nodX = TreeView1.Nodes.Add("R", tvwChild, "A", "zrs") '''''' '一级
  For q = 1 To 3
  Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A1", xm(q)) '''''''' 二级index   
  end sub
    
  为什么程序执行到Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A1", xm(q)) 这行时提示错误，错误代码是35602，集合中的关键字不唯一。
  我很菜，需要您的帮助，万分感谢！在线等待。
我的QQ是：5233471 希望有一起初学VB的朋友加我共勉，希望有精通的朋友做我老师！ 
 
 
--------------------编程问答-------------------- 三个node都用A1作KEY了，可改为：

Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A1" & xm(q), xm(q))

补充：VB ,  VBA