数据库驱动MenuStrip动态加载导航栏与子菜单

Private Sub frmNav_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Dim i As Integer = 0
            Dim j As Integer = 0
            Dim SysName As String = ""
            Dim CodeName As String = ""
            Sql = " select Distinct SysName from PrgName "
            dt_Menu = fun_GetDataTable(Sql)     '一级菜单数据
            If dt_Menu.Rows.Count > 0 Then
                For i = 0 To dt_Menu.Rows.Count - 1
                    Dim item As New ToolStripMenuItem
                    SysName = dt_Menu.Rows(i)("SysName").ToString
                    item.Name = SysName
                    item.Text = SysName
                    MenuNav.Items.Add(item)
                    MenuNav.Items(SysName).Visible = True
                    'item = MenuNav.Items(SysName)
                    Sql = " select Code,CodeName from PrgName where SysName='" + SysName + "' Order By Seq_No Asc "
                    dt_Bar = fun_GetDataTable(Sql) '二级级菜单数据
                    For j = 0 To dt_Bar.Rows.Count - 1
                        Dim subitem As New ToolStripMenuItem
                        CodeName = dt_Bar.Rows(j)("Code").ToString
                        subitem.Name = CodeName   '二级菜单Name
                        subitem.Text = dt_Bar.Rows(j)("CodeName").ToString '二级菜单显示Text
                        item.DropDownItems.Add(subitem)
                        item.DropDownItems(CodeName).Visible = True
                    Next
                Next
            End If
        Catch ex As Exception