Treeview dynamic generation method!

''' <Summary>
''' Load the root node

''' </Summary>
''' <Remarks> </remarks>
Private sub loadtreeview ()

Private SQL as string 'SQL
Dim ds as dataset record set

Dim dT as datatable
Dim I as integer
SQL = "select * From usysforms"
DS = mnsqlhelper. executedataset (SQL)
Dt = Ds. Tables (0)
For I = 0 to DT. Rows. Count-1
If DT. Rows (I). Item ("frm_id"). Trim = "0" then
Dim tnode as new treenode

Tnode. Tag = DT. Rows (I). Item ("frm_id"). Trim
Tnode. Text = DT. Rows (I). Item ("frm_name_c"). Trim
'Zookeeper has expired
Tnode. imagekey = DT. Rows (I). Item ("icon_name"). Trim

Tnode. selectedimagekey = tnode. imagekey
'Zookeeper has been appended with zookeeper
Me. ctrvmenu. nodes. Add (tnode)

Loadsubtree (DT, tnode, 0)
End if
Next

Ctrvmenu. nodes (0). Expand ()

End sub

''' <Summary>
''' Load subnodes

''' </Summary>
''' <Param name = "dttable"> memory set </param>
''' <Param name = "tnode"> root node </param>
''' <Param name = "frmid"> frm_id </param>
''' <Remarks> </remarks>
Private sub loadsubtree (byval dttable as datatable, byval tnode as treenode, byval frmid as string)
Dim I as integer
For I = 0 to dttable. Rows. Count-1
If dttable. Rows (I). Item ("frm_id"). Trim <> "0" then
If dttable. Rows (I). Item ("root_bun"). Trim <> "1" then
If dttable. Rows (I). Item ("frm_id_last"). Trim = frmid then
Dim snode as new treenode

Snode. Tag = dttable. Rows (I). Item ("frm_id"). Trim
Snode. Text = dttable. Rows (I). Item ("frm_name_c"). Trim
Snode. imagekey = dttable. Rows (I). Item ("icon_name"). Trim
Snode. selectedimagekey = snode. imagekey

Tnode. nodes. Add (snode)

Loadsubtree (dttable, snode, dttable. Rows (I). Item ("frm_id"). Trim)
Snode = nothing
End if
End if
End if

Next

End sub