步骤如下：

1.在main数据库中新建一模块，定义如下代码:
Function ExitSystem()
    '这里的ExitSystem就是自定义退出系统的函数名称
    If MsgBox("确认要退出系统吗？", vbInformation + vbOKCancel, "提示") = vbOK Then
        Application.Quit acQuitSaveNone
    End If
End Function 

2.模块保存为“basExitSystem”

3.在SysLocalResStrings表中添加一个新记录，如下图，保存退出

4.在SysLocalNavigationMenus表中 96-99的ID改为95-98  并添加一个99，如下图，保存退出

5.到导航菜单编辑器里，把退出系统的字体加粗勾上

到这，就可以切换下试试看效果了