主题：自动获取菜单名称和标题代码，为什么每次点击【同步菜单名称】按钮之后，就好全新增加所有菜单名称，而不是仅仅把新增加菜单名称加到表格里？？？

For Each rt As RibbonMenu.Tab In RibbonTabs

    For Each rg As RibbonMenu.Group In rt.Groups

        For Each rb As Object In rg.Items

            Dim dr As DataRow = DataTables ("菜单管理"). Find( "RibbonTabs名称 = '" & rt.Name & "' And RibbonTabs标题 = '" & rt.Text & "' And Groups名称 = '" & rg.Name & "' And Groups标题 = '" & rg.Text & "' And Items名称 = '" & rb.Name & "' And Items标题 = '" & rb.Text & "' And Items提示 = '" & rb.ToolTip & "'")

            If dr Is Nothing Then

                dr = DataTables ( "菜单管理" ). AddNew ()

                dr("RibbonTabs名称") = rt.Name

                dr("RibbonTabs标题") =rt.Text

                dr("Groups名称") =rg.Name

                dr("Groups标题") =rg.Text

                dr("Items名称") =rb.Name

                dr("Items标题") =rb.Text

                dr("Items提示") =rb.ToolTip

            End If

        Next

    Next

Next

老大们，帮忙看看代码错误原因，帮忙指正！