کسی میتونه در مورد این کد به من توضیح بده

[ma.andishe]

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
If first Then
daadapter.SelectCommand.CommandText = "select * from main_tree order by node_id"
Dim rdr As OleDb.OleDbDataReader = da.SelectCommand.ExecuteReader
While rdr.Read
Dim strnode As String = rdr.GetValue(0)
Dim i As Integer = 1
treeview.SelectedNode = treview.Nodes(0)
While (i < (strnode.Length - 2))
Dim index As Integer = Val(Mid(strnode, i, 2))
i += 2
treeview.SelectedNode = tv1.SelectedNode.Nodes(index)
End While
Dim des As String = rdr.GetValue(1)
tv1.SelectedNode.Nodes.Add(New TreeNode(des))
End While
rdr.Close()
first = False
End If
End Sub