<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="MyAddInInitialize">
  <ribbon startFromScratch="true">
    <tabs>
      <tab idMso="TabCreate" visible="false" />
      <tab idMso="TabDatabaseTools" visible="false" />
      <tab idMso="TabExternalData" visible="false" />

      <tab id="dbCustomTab1" label="Лента" visible="true">

        <group id="dbCustomGroup1" label=" ">
              <button id="FormOpenDB" size="large" label="Подключение"  imageMso="FileDocumentEncrypt" onAction="fConnectDbDialog"/>
        </group>

        <group id="dbCustomGroup2" label="Контрагенты">
              <button id="FormOpenFiz" size="large" label="Физ. Лица"  getEnabled="getEnabled" imageMso="DistributionListAddNewMember" onAction="fConnectDbDialog"/>
              <button id="FormOpenYur" size="large" label="Юр. Лица"  getEnabled="getEnabled" imageMso="MeetingsWorkspace" onAction="fConnectDbDialog"/>
        </group>

        <group id="dbCustomGroup3" label="Товарооборот">
              <button id="FormOpenTMZ" size="large" label="ТМЦ"  getEnabled="getEnabled" imageMso="DefaultView" onAction="fConnectDbDialog"/>
              <button id="FormOpenTMZDvizh" size="large" label="Движение ТМЦ"  getEnabled="getEnabled" imageMso="ListSynchronize" onAction="fConnectDbDialog"/>
        </group>

        <group id="dbCustomGroup6" label=" ">
              <button id="FormOpenDogovora" size="large" label="Договора" getEnabled="getEnabled" imageMso="ReadingViewShowPrintedPage" onAction="fConnectDbDialog"/>
        </group>


        <group id="dbCustomGroup5" label=" ">
               <button id="FormOpenOthet" size="large" label="Отчеты" getEnabled="getEnabled" imageMso="PrintAreaMenu" onAction="fConnectDbDialog"/>
        </group>
  <group id="grpVendors" label="Справочники">
     <splitButton id="cmdVendorSplitButton" size="large" getEnabled="getEnabled" >
      <menu id="mnuVendor" imageMso ="FilePrepareMenu" itemSize="large" >
              <button id="FormOpenCar" label="Автомобили"  imageMso="FilePrepareMenu" onAction="fConnectDbDialog"/>
              <button id="FormOpenDetail" label="Номенклатура"  imageMso="FilePrepareMenu" onAction="fConnectDbDialog"/>
              <button id="FormOpenDolzh" label="Должности"  imageMso="FilePrepareMenu" onAction="fConnectDbDialog"/>
              <button id="FormOpenOrgReq" label="Реквизиты организаций"  imageMso="FilePrepareMenu" onAction="fConnectDbDialog"/>
              <button id="FormOpenPrizep" label="Прицепы"  imageMso="FilePrepareMenu" onAction="fConnectDbDialog"/>
              <button id="FormOpenVidDoc" label="Документы физ. Лиц"  imageMso="FilePrepareMenu" onAction="fConnectDbDialog"/>
      </menu>
     </splitButton>
    </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

Public Function LoadRibbons()
On Error Resume Next

Dim strSQL As String
Dim rst As ADODB.Recordset
Dim sConnectionString As String

If CurrentProject.IsConnected Then

    Set rst = New ADODB.Recordset

    strSQL = "SELECT * FROM [UsysRibbons]; "
    rst.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

    Do Until rst.EOF
        Application.LoadCustomUI _
        rst("RibbonName").Value, rst("RibbonXml").Value
        strRibbon = rst("RibbonName").Value
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing

Else
sConnectionString = "PROVIDER=SQLOLEDB.1;PASSWORD=19&*susrev" & _
         ";PERSIST SECURITY INFO=TRUE;USER ID=sa" & _
         ";INITIAL CATALOG=Dystancia;DATA SOURCE=Коршиков_Д_С\SQLEXPRESS"
Application.CurrentProject.OpenConnection sConnectionString
    Set rst = New ADODB.Recordset

    strSQL = "SELECT * FROM [UsysRibbons]; "
    rst.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

    Do Until rst.EOF
        Application.LoadCustomUI _
        rst("RibbonName").Value, rst("RibbonXml").Value
        strRibbon = rst("RibbonName").Value
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing
Call closeCon

End If
End Function

Option Compare Database

Dim MyRibbon As IRibbonUI

Function fConnectDbDialog(control As IRibbonControl)
Select Case control.ID
    Case "FormOpenFiz"
        DoCmd.OpenForm ("FrmSprCar")
    Case "FormOpenYur"
        DoCmd.OpenForm ("FrmOrg")
    Case "FormOpenDB"
        DoCmd.OpenForm ("ConnectDbDialog")
    Case "FormOpenTMZ"
        DoCmd.OpenForm ("FrmSkladViewMain")
    Case "FormOpenTMZDvizh"
        DoCmd.OpenForm ("FrmNEWNNNN")
    Case "FormOpenCar"
        DoCmd.OpenForm ("SprCar")
    Case "FormOpenDetail"
        DoCmd.OpenForm ("SprDetail")
    Case "FormOpenDolzh"
        DoCmd.OpenForm ("SprDolzh")
    Case "FormOpenOrgReq"
        DoCmd.OpenForm ("SprOrgRecvizity")
    Case "FormOpenPrizep"
        DoCmd.OpenForm ("SprPrizep")
    Case "FormOpenVidDoc"
        DoCmd.OpenForm ("SprVidDoc")
    Case "FormOpenOthet"
        DoCmd.OpenForm ("frmOthet")
    Case "FormOpenDogovora"
        DoCmd.OpenForm ("DocDogovoraMain")
End Select
End Function

Function getEnabled(control As IRibbonControl, ByRef returnedVal)
Dim s As Boolean
If CurrentProject.IsConnected Then s = True Else s = False
Select Case control.ID
    Case "FormOpenFiz"
      returnedVal = s
    Case "FormOpenYur"
      returnedVal = s
    Case "FormOpenTMZ"
      returnedVal = s
    Case "FormOpenTMZDvizh"
      returnedVal = s
    Case "FormOpenCar"
      returnedVal = s
    Case "FormOpenDetail"
      returnedVal = s
    Case "FormOpenDolzh"
      returnedVal = s
    Case "FormOpenOrgReq"
      returnedVal = s
    Case "FormOpenPrizep"
      returnedVal = s
    Case "FormOpenVidDoc"
      returnedVal = s
    Case "FormOpenOthet"
      returnedVal = s
    Case "FormOpenDogovora"
      returnedVal = s
    Case "cmdVendorSplitButton"
      returnedVal = s
End Select
End Function
Public Function MyAddInInitialize(Ribbon As IRibbonUI)
    Set MyRibbon = Ribbon
End Function

Public Function repaintRibbon()
    MyRibbon.Invalidate
End Function

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="MyAddInInitialize">
  <ribbon startFromScratch="true">
тут ваша лента
  </ribbon>
  <backstage>
    <tab idMso="TabInfo" visible="false"/>
    <button idMso="FileSave" visible="false"/>
    <button idMso="SaveObjectAs" visible="false"/>
    <button idMso="FileSaveAsCurrentFileFormat" visible="false"/>
    <button idMso="FileOpen" visible="false"/>
    <button idMso="FileCloseDatabase" visible="false"/>
    <tab idMso="TabRecent" visible="false"/>
    <tab idMso="TabNew" visible="false"/>
    <tab idMso="TabPrint" visible="false"/>
    <tab idMso="TabShare" visible="false"/>
    <tab idMso="TabHelp" visible="false"/>
    <button idMso="ApplicationOptionsDialog" visible="false"/>
    <button idMso="FileExit" visible="false"/>
  </backstage>
</customUI>

.......
    </tabs>
  <qat>
    <sharedControls>
        <control idMso="Undo" visible="true" insertBeforeMso="Redo" keytip="1" screentip="Отменить ввод"/> 
        <control idMso="Redo" visible="true" insertAfterMso="Undo" keytip="2" screentip="Вернуть"/> 
        <button idMso="FilePrintPreview" visible="true" insertAfterMso="Redo" keytip="3" screentip="Просмотр перед печатью"/> 
        <button idMso="PrintDialogAccess" visible="true" insertAfterMso="FilePrintPreview" keytip="4" screentip="Печать"/> 
        <button idMso="ExportExcel" visible="true" insertAfterMso="PrintDialogAccess" keytip="5" screentip="Экспорт в Excel"/> 
        <button idMso="PivotExportToExcel" visible="true" insertAfterMso="ExportExcel" keytip="6" screentip="Экспорт в Excel сводной таблицы"/> 
        <button idMso="ExportWord" visible="true" insertAfterMso="PivotExportToExcel" keytip="7" screentip="Экспорт в Word"/> 
    </sharedControls>
</qat>
  </ribbon>
  <backstage>
.......