这里有两个数据库，我希望当删掉mmdb/mm.mdb 中某条记录的时候，能够更新mdb/date.mdb的相关记录。

程序运行正常，就是这句代码不起作用：
rs_lar("huoli")=rs_lar("huoli")-1
rs_lar("img")=rs_lar("img")-1

全部代码非常简单，如下：

<%
Set conn1 = Server.CreateObject("ADODB.Connection")
DBPath1 = Server.MapPath("mdb/date.mdb")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("u_id")
rs_lar.open sql,conn1,3,2

if rs_lar.eof and rs_lar.bof then
response.redirect "notregist.asp"
response.end
end if
%>
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("mmdb/mm.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

<%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="delete from desktop where id="&Request.QueryString("id")
rs.open sql,conn,1,1
rs.close
set rs=nothing
conn.close
rs_lar("huoli")=rs_lar("huoli")-1
rs_lar("img")=rs_lar("img")-1
rs_lar.update
rs_lar.close
set conn=nothing
Response.Redirect"mmadminfile.asp"
%>

麻烦高手指点一下，我错在哪儿？
rs_lar.open sql,conn1,3,2
rs.open sql,conn,1,1
都尝试改过，还是没效果。
奇怪吧，问题在哪儿呢？

楼上说得对，rs_lar也是依赖conn的，conn.close放在所有的数据库操作完毕之后用。

另外请楼主不要对同一个问题开新帖，谢谢