'************************************************************
'* 设置当前ADP数据库连接                                    *
'*                                                          *
'* 作者: 朱亦文                                             *
'* 时间: 2009.06.02                                         *
'*                                                          *
'* 函数名: ConnectDB()                                      *
'* 目  的: 设置当前ADP数据库连接                            *
'* 返回值: True-成功                                        *
'*         False-失败                                       *
'************************************************************
Public Function ConnectDB() As Boolean
On Error GoTo err_ConnectDB
    Dim dbSVR       As String
    Dim dbName      As String
    Dim dbUserID    As String
    Dim dbPassword  As String
   
    dbSVR = "(Local)\SQLExpress"    ' SQL Server 实例及连接端口，
                                    ' 如：192.168.1.11\SQLExpress,1433
    dbName = "jxc"                  ' 数据库名称
    dbUserID = "jxc"                ' 登录名
    dbPassword = "xYc_a0b7"         ' 登录密码
   
    Dim connStr As String
   
    connStr = "Provider=Microsoft.access.OLEDB.10.0;"       ' ADP 提供者
    connStr = connStr & "Persist Security Info=False;"      ' ADP 连接不保存密码
    connStr = connStr & "Provider=SQLOLEDB.1;"              ' 数据提供者
    connStr = connStr & "Data Source=" & dbSVR & ";"        ' 数据源
    connStr = connStr & "Initial Catalog=" & dbName & ";"   ' 数据库
    connStr = connStr & "User ID=" & dbUserID & ";"         ' 登录名
    connStr = connStr & "Password=" & dbPassword            ' 登录密码
   
    CurrentProject.OpenConnection connStr                   ' 打开 ADP 连接
    ConnectDB = True
    Exit Function
   
err_ConnectDB:
    ConnectDB = False
    Err.Clear
    On Error GoTo 0
End Function