用treeview显示数据库内容发生重复现象

Question

Private Sub TreeView_Load()                                     '本过程实现创建TreeView1视图    Dim Key, Text As String
    Dim Node1, Node2 As Node    Key = "设备分类(全部)"
    Text = "设备分类(全部)"    Set Node1 = TreeView1.Nodes.Add(, , Key, Text, 1)
    rs_frmEq.Open "select distinct eq_name from tb_eq ", Cnn_frmEq, adOpenKeyset
         If rs_frmEq.RecordCount > 0 Then
                rs_frmEq.MoveFirst
                Do While rs_frmEq.EOF = False
                    Key = Trim(rs_frmEq.Fields("eq_name"))
                    Text = rs_frmEq.Fields("eq_name")
                    Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, Key, Text, 2)
                    rs_frmEq.MoveNext
                Loop
         End If
    rs_frmEq.CloseEnd Sub如上所写，我想用distinct不重复的列出设备名，但有重复现象，请高手指点，谢谢 

Answer 1

这样试rs_frmEq.Open "select eq_name from tb_eq group by eq_name", Cnn_frmEq, adOpenKeyset

Answer 2

Private Sub TreeView_Load() '本过程实现创建TreeView1视图  Dim Key, Text As String
  Dim Node1, Node2 As Node  Key = "设备分类(全部)"
  Text = "设备分类(全部)"  Set Node1 = TreeView1.Nodes.Add(, , Key, Text, 1)
  rs_frmEq.Open "select distinct eq_name from tb_eq ", Cnn_frmEq, adOpenKeyset
  If rs_frmEq.RecordCount > 0 Then
  i=0
  Do While rs_frmEq.EOF = False
  i=i+1
  Key = Trim(rs_frmEq.Fields("eq_name"))
  Text = rs_frmEq.Fields("eq_name")
  Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, Text & i,Key, 2)
  rs_frmEq.MoveNext
  Loop
  End If
  rs_frmEq.CloseEnd Sub

Answer 3

Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, Text & i,Key, 2)
倒数第二个参数是显示的内容，倒数第三个是个不显示的键值，不可重复