hjælp til at hendte brugernavn fra database

jeg har denne kode.

<!-- #include file="../databaseforbindelse.asp" -->
<%
id = Request.Form ("id")
Tabelnavn = "users"

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then ' Opdatering
sql="update Users set Username=""" & (request.form("Username")) & """, Pass=""" & (request.form("Pass")) & """ where id=" & request.form("id") 
'response.write sql
conn.execute(sql)
response.redirect "../default.asp?emne=admin"
Else
  Id = Request.QueryString ("id")
' ** Inserted by Jon Brohauge 2002/08/02
' ** Hvis der ikke er specificeret et id, så vis liste over alle nyheder sorteret efter dato, nyest først.
  If Id = 0 Then
' ** Vis nyhedsliste
  Set rs=Conn.Execute ("Select * from " & Tabelnavn & " WHERE  'Username'")
%>

<center>
<br>
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<tr>
  <td ><b>Brugernavn:</b></td>
  <td>&nbsp; </td>
</tr>
<%
  If not(rs.bof or rs.eof) Then
    while not(rs.eof)
%>
<tr>
  <td class="menutxt"><%=rs("Pass")%>&nbsp;</td>
  <td class="menutxt"><a href="default.asp?emne=admin&emne2=retbruger&id=<%=rs("id")%>">Ret</a>|&nbsp;<a href="admin/sletbruger.asp?id=<%=rs("id")%>">Slet</a>
  </td>
</tr>
<%
      rs.movenext
    wend
  Else
    Response.Write "Ingen nyheder at rette"
  End If
%>
</table>


<%
  Else
' ** Vis valgte nyhed
  Set rs=Conn.Execute ("Select * from " & Tabelnavn & " Where id=" & Id & "")
%>

<center>

<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<Form Action=admin/retbruger.asp method="post">
<tr>
  <td colspan=2 height=20  width="320" class="green" align="center"><b>Ret/Slet Anonce bruger:</b>
  </td>
</tr>

<tr>
<td align=right width="310"><input type="text" name="Username" size="32" value="<%=rs("Username")%>"></td>
</tr>
<tr>
<td align=right width="310"><input type="text" name="Pass" size="32" value="<%=rs("Pass")%>"></td>
</tr>
<tr>
  <td colspan=2 width="310" align="right"><Input type="submit" Value="Ret"></td>
</tr>
<input type="hidden" name="id" value="<%=Id%>">
</form>
</table>

<%
  End If
End If
%>

som skal hendte brugernavn og password, som skal redigeres eller slettes.

men jeg får følgende fejl.

Fejltype:
ADODB.Recordset (0x800A0CC1)
Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.
/web/nejst/admin/retbruger.asp, line 33


linie 33 hedder

  <td class="menutxt"><a href="default.asp?emne=admin&emne2=retbruger&id=<%=rs("id")%>">Ret</a>|&nbsp;<a href="admin/sletbruger.asp?id=<%=rs("id")%>">Slet</a>