加入这个模块后，在程序中任意地方调用：
打开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