连接无法用于执行此操作。在此上下文中它可能已被关闭或无效

'连接SQL的模块
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public addFlag As Boolean      '声明部分

Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean '连接模块 填写数据库等信息
'On Error GoTo err
    Set conn = New ADODB.Connection

        conn.ConnectionTimeout = 10

        conn.Provider = "sqloledb"
        conn.Properties("data source").Value = Cip     '服务器的名字
        conn.Properties("initial catalog").Value = "DateCenter"      '库名
        'conn.Properties("integrated security").Value = "SSPI"      '登陆类型
        conn.Properties("user id").Value = users
        conn.Properties("Persist Security Info").Value = False
        conn.Properties("password").Value = pw '密码
'        conn.CursorLocation = adUseServer
        conn.Open
        OpenCn = True
    If conn.State = 1 Then addFlag = True
        Exit Function
'err:
'      MsgBox err.Number & vbCrLf & err.Description, vbCritical

End Function

'关闭数据库，释放连接
Public Sub cloCn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = Nothing
End Sub

Public Function openRs(ByVal strsql As String) As Boolean      '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
'On Error GoTo ERR
     Set rs = New ADODB.Recordset
     If addFlag = False Then rpy = True
     With rs

     .ActiveConnection = conn
     .CursorLocation = adUseClient
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
'     Debug.Print strsql
     .Open strsql
     End With
     addFlag = True
     openRs = True
     Exit Function
'ERR:
'
''调用自定议消息窗口
'     info
'     openRs = False
'     Exit Function
''     End
End Function
Public Sub cloRs()
'On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing '释放记录集
End Sub