发生错误: 对象关闭时，不允许操作。

dim constr , rs ,conn , MD5

MD5 = File.MD5Hash
constr = "SELECT * from FILES WHERE Hash = '" & MD5 & "'"
set conn=Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "data.mdb"

rs.open constr


With rs
if .bof and .eof then
.AddNew
.Fields("FileName") = File.FileName
.Fields("FileSize") = File.Size
.Fields("Hash") = MD5
.Fields("Tim") = now
.Update

else
Response.Write "KKK"
Response.End()
end if

总是提示 发生错误: 对象关闭时，不允许操作。