ADP 启动：
检查是否有数据库连接字符，BaseConnectionString。
- 有，试图连接数据库，成功，设置ADP的连接状态，执行ADP的自动宏和启动设置；失败，提示连接数据库，如果取消连接，则ADP保持断开状态。
- 无，执行ADP的自动宏和启动窗体，保持断开状态。
ADP 通常保存数据库连接字符串BaseConnectionString，以备每次启动时自动连接。如果，没有保存密码，每次启动都会提示输入密码。但是如果保存了密码，又带了不安全因素，比如，利用导入功能，可以从这个ADP将数据导入到其它数据库。
为了避免，上述的情况发生，最好的办法就是在ADP退出时不保存BaseConnectionString。当然，运行时的连接也不要保存密码。
'************************************************************
'* 断开当前数据库连接 *
'* *
'* 作 者: 朱亦文 *
'* 时 间: 2009.06.02 *
'* *
'* 函数名: DisconnectDB() *
'* 目 的: 断开当前数据库连接 *
'* 返回值: True-成功 *
'* False-失败 *
'************************************************************
Public Function DisconnectDB() As Boolean
On Error GoTo err_DisconnectDB
With CurrentProject
.CloseConnection ' 断开连接
.OpenConnection "Provider=;" ' 清空连接
End With
DisconnectDB = True
Exit Function
err_DisconnectDB:
DisconnectDB = False
Err.Clear
On Error GoTo 0
End Function
在退出ADP之前，直接运行这个函数，或者通过一个宏RunCode调用这个函数，可以关闭ADP的数据库连接以及清空ADP的BaseConnectionString。那么下一次这个ADP启动时就会是断开数据库连接的，当然也没有提示数据库连接的对话框，以及密码提示，而直接执行ADP中的自动宏或者启动窗体。
如果ADP启动时要连接数据库，可以在自动宏或者启动窗体中实现。这样就实现了ADP控制登录。
