以下这代码一执来就显示＂删除成功＂，但我在数库据里看，，根本没有删

<%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="delete from user where user='"&request.querystring("id")&"'"
if not isnumeric(request.QueryString("id")) or request.querystring("id")="" then
msg"非法操作"
else
rs.open sql,conn,1,3 请我这样能执行删改嘛，，如果用conn.execute sql 错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'driver={microsoft ac'
msg"删除成功" msg是我定义的一个对话框数来的
end if

%>

---

---

我的数据库连接字符串
<%
dim conn
conn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("kof.mdb")
%>

<%
dim conn
conn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("kof.mdb")
%>
改成
<%
dim conn
set conn=Server.CreateObject("adodb.connection")
connstr="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("kof.mdb")
conn.open connstr
%>