我要做一个删除数据功能，用的是Access数据库，可是现在怎么搞就是不行！！ 数据库的代码如下：

<% Dim cn,rs Dim Sql set cn=server.createobject("adodb.connection") cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("lybf.mdb") Set rs = Server.CreateObject("ADODB.RecordSet") Sql = "Delete lyb WHERE id='" & Request("id") & "'" rs.Open Sql,cn rs.open "select * from lyb",cn %>

[attach]1333[/attach]

那位高手，如果可以的话，可以下载这个压缩文件帮我看一下，谢谢，急！