Menu for ASP.NET Web Forms - How to bind a control to a database

C#
using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Collections.Generic;

public partial class ASPxperience_Menu_BuildMenuFromDB_BuildMenuFromDB : System.Web.UI.Page {
    protected void Page_Load(object sender, EventArgs e) {
        BuildMenu(ASPxMenu1, AccessDataSource1);
    }

    protected void BuildMenu(DevExpress.Web.ASPxMenu menu, SqlDataSource dataSource) {
        // Get DataView
        DataSourceSelectArguments arg = new DataSourceSelectArguments();
        DataView dataView = dataSource.Select(arg) as DataView;
        dataView.Sort = "ParentID";

        // Build Menu Items
        Dictionary<string, DevExpress.Web.MenuItem> menuItems =
            new Dictionary<string, DevExpress.Web.MenuItem>();

        for (int i = 0; i < dataView.Count; i++) {
            DataRow row = dataView[i].Row;
            DevExpress.Web.MenuItem item = CreateMenuItem(row);
            string itemID = row["ID"].ToString();
            string parentID = row["ParentID"].ToString();

            if (menuItems.ContainsKey(parentID))
                menuItems[parentID].Items.Add(item);
            else {
                if (parentID == "0") // It's Root Item
                    menu.Items.Add(item);
            }
            menuItems.Add(itemID, item);
        }
    }

    private DevExpress.Web.MenuItem CreateMenuItem(DataRow row) {
        DevExpress.Web.MenuItem ret = new DevExpress.Web.MenuItem();
        ret.Text = row["Text"].ToString();
        ret.NavigateUrl = row["NavigateUrl"].ToString();
        return ret;
    }
}

Visual Basic
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Collections.Generic

Partial Public Class ASPxperience_Menu_BuildMenuFromDB_BuildMenuFromDB
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        BuildMenu(ASPxMenu1, AccessDataSource1)
    End Sub

    Protected Sub BuildMenu(ByVal menu As DevExpress.Web.ASPxMenu, ByVal dataSource As SqlDataSource)
        ' Get DataView
        Dim arg As DataSourceSelectArguments = New DataSourceSelectArguments()
        Dim dataView As DataView = TryCast(dataSource.Select(arg), DataView)
        dataView.Sort = "ParentID"

        ' Build Menu Items
        Dim menuItems As Dictionary(Of String, DevExpress.Web.MenuItem) = New Dictionary(Of String, DevExpress.Web.MenuItem)()

        For i As Integer = 0 To dataView.Count - 1
            Dim row As DataRow = dataView(i).Row
            Dim item As DevExpress.Web.MenuItem = CreateMenuItem(row)
            Dim itemID As String = row("ID").ToString()
            Dim parentID As String = row("ParentID").ToString()

            If menuItems.ContainsKey(parentID) Then
                menuItems(parentID).Items.Add(item)
            Else
                If parentID = "0" Then ' It's Root Item
                    menu.Items.Add(item)
                End If
            End If
            menuItems.Add(itemID, item)
        Next i
    End Sub

    Private Function CreateMenuItem(ByVal row As DataRow) As DevExpress.Web.MenuItem
        Dim ret As DevExpress.Web.MenuItem = New DevExpress.Web.MenuItem()
        ret.Text = row("Text").ToString()
        ret.NavigateUrl = row("NavigateUrl").ToString()
        Return ret
    End Function
End Class