error '800a01b6'

Jeg får følgende fejl.:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'EOF'

Jeg køre win2k server og IIS 5.0

========
kode.:
<%
objRs = Conn.Execute("SELECT Navn,URL FROM User.menu WHERE Adgang >= '" & Session("Adgangsniveau_ID") & "'")
  DO WHILE NOT objRs.EOF
  Response.Write "<tr><td><a href=""" & objRs("URL") & """ class=""link""><img src=""images/arrow_orange.gif"" WIDTH=""4"" HEIGHT=""7"">&nbsp;" & objRs("Navn") & "</a></td></tr>"
  objRs.MoveNext
  Loop
%>

Hvad kan der være galt??