rr.Description vbOKOnly vbCritical quot错误提示quot Exit Sub End IfEnd Sub3 在“取消”按钮 cmdCancel 的单击事件中编写如下代码:Private Sub cmdCancel_ClickIf MsgBoxquot您真的要退出本系统的使用吗?quot vbYesNo vbQuestion quot退出询问quot vbYes Then 把记录集从内存中清除 Set adoRS Nothing 断开与数据库的连接 adoCon.Close 把连接变量从内存中清除 Set adoCon Nothing 从内存中卸载登录窗体,终止程序的执行 Unload MeEnd IfEnd Sub ☆ 窗体 4:主界面程序 Option Explicit Public mdbFile mdbDataName As String Public Data.