VB程序：用TreeView控件来显示【部门】和【职员】

VB程序：用TreeView控件来显示【部门】和【职员】。用下面的代码，【部门】显示不理想，重复的都显示出来了。
我想要的结果是：比如【生产部】为一个主节点，只显示一个； 【生产部】的若干个子节点【职员】全都显示。其它部门类似。效果如图所示。
我用的是VB6.0  数据库为SQL2000   表名为【login】  一个列名为【部门】   一个列名为【职员】   一个列名为【编码】主键
Private Sub Command1_Click()
TreeView1.LineStyle = tvwRootLines
Dim nodx As Node
Dim nodx1 As Node
Dim SQl, Str1, Str2, Str3, Str4 As String
Dim yu As Integer
Dim yuu As Integer
Dim ADOrs As New Recordset
ADOrs.ActiveConnection = ADOcn
Dim i As Integer
     Text1.Text = ""
     TreeView1.Sorted = True
     ADOrs.Open "SELECT  部门,名字 From login "
     ADOrs.MoveFirst
    yu = 0
     yuu = 0
     Do While Not ADOrs.EOF
        yu = yu + 1
        yuu = yuu + 1
        Str1 = CStr(yu) + "-" + ADOrs.Fields("部门")
        Str2 = ADOrs.Fields("部门")
        Str3 = CStr(yuu) + "-" + ADOrs.Fields("职员")
        Str4 = ADOrs.Fields("职员")
        Set nodx = TreeView1.Nodes.Add(, , Str1, Str2)
        Set nodx = TreeView1.Nodes.Add(Str1, tvwChild, Str3, Str4)
     ADOrs.MoveNext
     Loop
     ADOrs.Close
     For i = 1 To TreeView1.Nodes.Count
         TreeView1.Nodes(i).Expanded = True
     Next i
     Set ADOrs = Nothing

End Sub

全部

s***

回答