rs i access?

Hej!

Jeg forsøger at loope igennem et recordset, men får fejlen:

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'moveNext'
/main.asp, line 23

Her er linierne:

Set rs =  Server.CreateObject("ADODB.Recordset")

strSql = "select * from Category"
rs = Conn.execute(strSql)

do
Response.write "Kategori nr." & rs("ID") & " er hentet fra databasen<br>"
Response.write "Overskriften er: " & rs("Navn") & "<br>"
rs.moveNext()
Loop While Not rs.EOF

.. og har også stødt på en fejl omkring EOF.

Hvorfor vil mit recordset ikke det?

/Niles