加入这个模块后，在程序中任意地方调用：

 打开ado数据库连接：Call CnnDB(mcnn, sCnn, True)
 关闭ado数据库连接：Call DisCnn(mcnn)
 
 这样，让数据库连接更加方便被连接和关闭
 
''''%#******************************************
''''%#*窗体名称：MdlDB
''''%#*功能描述：加入这个模块后调用 Call CnnDB(gcnnDB, sCnn, True)
''''%#*作者： 宁彦彬
''''%#*修改日期:2002-12-03
''''%#******************************************
''''%#*Option Explicit

Public Sub CnnDB(ByRef mcnn As ADODB.Connection, sCnn as string, Optional blnClient As Boolean)
''''*purpose: connect local sqlserver
''''*NOTE:   在这里数据连接
On Error GoTo MYERR
   If blnClient = True Then
      mcnn.CursorLocation = adUseClient
   Else
      mcnn.CursorLocation = adUseServer
   End If
   mcnn.ConnectionString = sCnn ''''定义好的
   mcnn.Open
MYEXIT:
   Exit Sub
MYERR:
   MsgBox "服务器没有运行" & vbCrLf & Err.Number & vbCrLf & Err.Description, vbCritical, "错误"
   GoTo MYEXIT
End Sub

Public Sub DisCnn(ByRef mcnn As ADODB.Connection)
''''*purpose: disconnect local sqlserver
''''*NOTE:   在这里数据断开连接
On Error GoTo MYERR
   mcnn.Close
   Set mcnn = Nothing
MYEXIT:
   Exit Sub
MYERR:
   GoTo MYEXIT
End Sub

Function serverDate(ByRef mcnn As ADODB.Connection)
''''*purpose: 取到服务器的系统时间
''''*NOTE:   必须在mcnn初始化后再用
''''  MsgBox serverDate(mcnn)
On Error GoTo MYERR
   Dim rst As New ADODB.Recordset
   Set rst = mcnn.Execute("select getdate()")
   serverDate = rst(0)
   rst.Close
   Set rst = Nothing
MYEXIT:
    Exit Function
MYERR:
    GoTo MYEXIT
End Function