310s14拆机:asp程序问题

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file ="conn.asp"-->
<!--#include file ="session.asp"-->
<% if request.form("submit")="提交" then
rpws=trim(request.form("rpws"))
pws1=trim(request.form("pws1"))
pws2=trim(request.form("pws2"))
if rpws="" or pws1="" or pws2="" then
response.Write("密码不能为空")
end if
if pws1<>pws2 then
response.Write("两次新密码不一样")
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from yd_admin"
rs.open sql,conn,1,3
if rpws<>rs("password") then %>
<script language="JavaScript">
alert("旧密码不正确！")
history.go(-1)
</script>
<%else
rs("password")=pws1
rs.update
%><script language="JavaScript">
alert("密码更新成功！")
window.location.href("main.htm")
</script>
<% end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if
%>

(上为部分程序)

为什么运行时会出现这样的错误:
错误类型：
Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
/admin_mm.asp, 第 85 行