Hata Kodu '800a0e7d'

<%  

Set baglanti = Server.CreateObject("ADODB.RecordSet")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/data.mdb")
AgentID = Request("AgentID")
set rs = Server.CreateObject("ADODB.RecordSet")
sql = "DELETE FROM Agent WHERE AgentID = " &AgentID&""
rs.open sql,baglanti,1,3
baglanti.Close
Set baglanti = Nothing
Response.Redirect ("asilok.asp")
%>  

Bu benim silme yaptığım sayfa arkadaşlar bu sayfaya bir önceki sayfadan silinmesi gereken ID geliyor bende burada dataya ulaşıp silmeye çalışıyorum ama şöyle bir hata veriyor. Gözümden bir şeyler kaçıyor ama

ADODB.Recordset hata '800a0e7d'
Ba#240;lant#253;, bu i#254;lemi gerçekle#254;tirmek için kullan#253;lam#253;yor. Kapal#253; veya bu ko#254;ullarda geçersiz.

İlginize teşekkürler arkadaşlar

<%
Set baglanti = Server.CreateObject("ADODB.RecordSet")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/data.mdb")

AgentID= Request.QueryString("AgentID")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "DELETE * from Agent WHERE AgentID="&AgentID&""
rs.open sql,baglanti,1,3
Response.Redirect("asilok.asp")
%>

veri tabanı bağlantısını kapatmadan dene yukardaki kodu kullan düzelecek