Заполнение treeview данными из массива

Public Function filling_tree()
Dim x, i As Integer
Dim objNode As TreeNode
Dim vData(0, 0) As Object
Dim records As String = "tbl_struc"
vData = creation_array(way_base, records, True)
For x = 0 To UBound(vData, 2)
If vData(2, x) = 0 Then
objNode = frmSotrud.tvw_struc.Nodes.Add("A" & vData(0, x), vData(1, x), 11, 10)
Else
 
End If
For i = 0 To UBound(vData, 2)
If vData(0, x) = vData(2, i) Then
objNode = objNode.Nodes.Add("A" & vData(0, i), vData(1, i), 11, 10)
objNode = objNode.Parent
Else
End If
Next i
Next x

Protected Sub FillTreeView(ByVal ParentID As Integer, ByRef ParentNodesCollection As TreeNodeCollection)
Using dt As Data.DataTable = clsFunctions.ExecuteSelect("SELECT ID, " & _
"Name, IsClickable FROM tbl WHERE ParentID=" & ParentID.toString)
For Each dr As Data.DataRow In dt.Rows
Dim tn As New TreeNode
tn.Text = dr("Name").ToString
If dr("IsClickable") Then
tn.NavigateUrl = "/page.aspx?ID=" & dr("ID").ToString
tn.SelectAction = TreeNodeSelectAction.SelectExpand
Else
tn.SelectAction = TreeNodeSelectAction.Expand
End If
ParentNodesCollection.Add(tn)
FillTreeView(dr("ID"), tn.ChildNodes)
Next
End Using
End Sub