检查是否有数据库连接字符，BaseConnectionString。

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控制登录