dst.Tables("Categories").Rows
Dim masterItem As New
MenuItem(masterRow("CategoryName").ToString())
Menu1.Items.Add(masterItem)
For Each childRow As DataRow In
masterRow.GetChildRows("Children")
Dim childItem As New
MenuItem(childRow("ProductName").ToString())
masterItem.ChildItems.Add(childItem)
Next