Подскажите, пожалуйста, как в TreeView добавить ребенка к указанному узлу родителю?
В Access есть метод TV.Nodes.Add(id ребенка, tvwChild, id родителя).
А как быть в ASPX?

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not IsPostBack Then

Dim cnProc As New SqlConnection(...)
Dim cmdProc As New SqlCommand
Dim drProc As SqlDataReader
Dim ItemName As String

cmdProc.CommandType = CommandType.StoredProcedure
cmdProc.Connection = cnProc
cmdProc.CommandText = "uspOrgStructDown"

cmdProc.Parameters.Add("@startpoint", SqlDbType.UniqueIdentifier)
cmdProc.Parameters("@startpoint").Value = Null

cnProc.Open()
cmdProc.ExecuteNonQuery()
drProc = cmdProc.ExecuteReader

Dim ItemName As string '- текст узла
Dim Item As string 'id узла
Dim Parent As srting 'id родителя для узла

While drProc.Read

ItemName = drProc.Item("ItemName").ToString '- текст узла
Item = drProc.Item("Item").ToString '- id узла, тип UniqueIdentifier
Parent = drProc.Item("Parent").ToString '- id родителя для узла, тип uniqueIdentifier
'Root является NULL

TV.Nodes.Add(Item, tvwChild, Parent)=ItemName 'По Access
End While
End If
End Sub

Нашел вариант под C# переписал под VB
но, ругается на строку
Dim nNode = New TreeNode(lvl)
Пишет Too many arguments to Public Sub New()
Конструктор что ли не может вызвать?

Try
cmdProc.CommandType = CommandType.StoredProcedure
cmdProc.Connection = cnProc
cmdProc.CommandText = "uspOrgStructDown"

'cmdProc.Parameters.Add("@startpoint", SqlDbType.UniqueIdentifier)
' cmdProc.Parameters("@startpoint").Value = Null

cnProc.Open()
cmdProc.ExecuteNonQuery()

drProc = cmdProc.ExecuteReader

Dim Nodes = New SortedList
Dim RootNode = New TreeNode

drProc.Read()
RootNode.Text = drProc.Item("ItemName").ToString
Nodes.Add(drProc.Item("Item").ToString, RootNode)

While drProc.Read
'ItemName = drProc.Item("ItemName").ToString
'TreeView1.Nodes.AddAt(drProc.Item("Item"), drProc.Item("Parent"))
Dim ParentNode = New TreeNode
ParentNode.Text = drProc.Item("ItemName").ToString
ParentNode.ID = drProc.Item("Parent").ToString
Nodes.Add(drProc.Item("Item").ToString, ParentNode)
End While
drProc.Close()

Dim i As Int32 = 1
While i < Nodes.count
If Nodes.getbyindex(i).ID <> "NULL" Then
Dim lvl As String
lvl = Nodes.getbyindex(i).ID
Dim nNode = New TreeNode(lvl)
nNode.Nodes.Add(Nodes.getbyindex(i))

End If
i += 1
End While
TreeView1.Nodes.Add(Nodes.getbyindex(0))


' Catch ex As Exception
' lblErr.Text = ex.Message
Finally
cnProc.Close()
End Try