如何从数据表生成菜单，并调用？谢

以下代码无法生成菜单。

Dim drs As List(Of DataRow)
Dim dt As DataTable = Functions.Execute("获取外部指定表",_ServerDB,"菜单设置表","主菜单 = 1")
drs = dt.Select("1=1","主菜单_ID,子菜单_ID")
RibbonTabs.Clear  \'\'\'

For Each dr As DataRow In drs
   
    Dim gn As New RibbonMenu.Tab("我的控制台")
   
    gn.Text = "我的控件台"
    RibbonTabs.Add(gn)
   
    Dim g As New RibbonMenu.Group(dr("主菜单_名称"))
    g.Text = dr("主菜单_名称")
    RibbonTabs("我的控件台").Groups.Add(g)
   
    Dim b As New RibbonMenu.Button(dr("子菜单_名称"))
    b.Text = dr("子菜单_名称")
    b.LargeImage = GetImage(ProjectPath & "Images\\" & dr("子菜单_大图标"))
    b.TextImageRelation = TextImageRelationEnum.ImageAboveText
    g.Items.Add(b)
   
Next

如何定义一个自己的菜单名，项目启动后直接调用？

如“我的菜单”，调用“我的菜单”

谢