动态生成treeview的问题，好急啊！！！

Question

给你一段烂代码
看看有没有用 ，这个一个过程，form load以后…… 
Public Sub showmenu()
Dim Node1 As Node
Dim Node2 As Node
Dim Node3 As Node
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim msgtext As String
TreeView1.Nodes.Clear
  TreeView1.ImageList = ImageList1
  Dim rs1 As ADODB.Recordset
   i = 1
       Set Node1 = TreeView1.Nodes.add(, , , "学生档案", 1)
       textsql = "select * from 级数"
        Set rs1 = ExecuteSQL(textsql, msgtext)
         For j = 1 To rs1.RecordCount
                Set Node2 = TreeView1.Nodes.add(Node1.Index, tvwChild, "z" & rs1.Fields("id"), Trim(rs1.Fields("级数")), 2)
                Dim rs2 As ADODB.Recordset
                t = rs1.Fields(1)
                textsql1 = "select * from 专业分布 where 级别='" & t & "'"
                  Set rs2 = ExecuteSQL(textsql1, msgtext)
                     For k = 1 To rs2.RecordCount
                        Set Node3 = TreeView1.Nodes.add(Node2.Index, tvwChild, "m" & j & rs2.Fields(0), Trim(rs2.Fields(2)), 2)
                            Class = Trim(rs2.Fields(2))
                               Dim rs3 As ADODB.Recordset
                               textsql = "select * from 班级 where 级别='" & t & "'and 专业='" & Class & "'"
                               Set rs3 = ExecuteSQL(textsql, msgtext)
                               For c = 1 To rs3.RecordCount
                                Set Node4 = TreeView1.Nodes.add(Node3.Index, tvwChild, "c" & Trim(rs1.Fields("级数")) & "y" & Class & "u" & Trim(rs3.Fields("班级")), Trim(rs3.Fields("班级")), 3)
                               rs3.MoveNext
                               Next
                         rs2.MoveNext
                    Next
              rs1.MoveNext
            Next
    Node1.Expanded = True
Set Icon = Nothing
End Sub