ADODB.Connection错误'800a0e78'对象关闭时不允许操作

I have class

我有课

Class dbaccess

Public Sub DBOpenAccess()
    ...
    strConnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
    strConnStr = strConnStr & strDBLoc & ";"
    Set cnnObj = server.CreateObject("ADODB.Connection")
    cnnObj.Open strConnStr
End Sub
...
Public Function OpenRec()
     Set objRec = server.CreateObject("ADODB.Connection")
End Function

    Public Function ExecuteUpdateSQL(strSQLStatement)
         Set objRec = cnnObj.Execute(strSQLStatement)
    End Function
...
    Public Function CloseRec()
         objRec.close
         Set objRec = Nothing
    End Function
End Class
Class dbaccess

Public Sub