database problemmer igen igen

Hejsa igen igen :-)

Har igen et problem, denne gang et lidt andet... har følgende kode:

<%
If Request.QueryString("delete") > 0 Then
   
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(strDBDir)
strSQL = "select * from login"
set rs = myConn.Execute(strSQL)

rs.Open "SELECT * FROM login WHERE id=" & Request.QueryString("delete") & ", conn,1,3"
rs.Delete
   
rs.Update
rs.Close

set rs = nothing
conn.close
set conn = nothing
   
Response.Redirect(admUserDatabase.asp)
   
Else
%>

og har så et stykke længere nede:

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(strDBDir)
strSQL = "select * from login"
set rs = myConn.Execute(strSQL)
%>
<% Do While not rs.EOF %>
<tr>
  <td align="left" valign="middle" width="33%">
    <input name="ID" type="hidden" value="<% Response.Write(rs("ID")) %>">
    <input name)"UserID" size="30" value="<% Response.Write(rs("UserID")) %>"></td>
  <td align="left" valign="middle" width="33%">
    <input name="UserPass" style="text-align:center;" size="30" value="<% Response.Write(rs("UserPass")) %>"></td>
  <td align="right" valign="middle" width="33%">
    <input name="AccessLevel" style="text-align:right;" size="27" value="<% Response.Write(rs("AccessLevel")) %>">&nbsp;<a href="admUserDatabase.asp?delete=<% Response.Write(rs("id")) %>"><img alt="Delete User!" border="0" src="imgs/icon_trashcan.gif"></a></td>
</tr>
<%
rs.MoveNext
loop
%>

Får nu følgende fejltype:

Fejltype:
ADODB.Recordset (0x800A0E79)
Handlingen er ikke tilladt, mens objektet er åbent.

Nogen der har nogen idéer til hvordan jeg kan rette det...?

Hvis I altså kan følge hvad jeg har skrevet, er ved at være ret træt nu her... ;-)