MoveNext med Connection?

Håller på med en förbättring av mitt gamla script, UltiBook och testade med att enbart använda ett Connection-objekt och SQL..

Har dock ett problem, hur ska man kunna loopa ut innehållet i databasen?

<% While Not objRs.EOF %>
<tr><td>
<b>Namn:</b> <%=objRs("Namn")%><br>
<b>E-mail:</b> <%=objRs("Email")%><br>
<b>Ev. hemsida:</b> <%=objRs("Url")%><p>
<b>Meddelande:</b><br><%=objRs("Meddelande")%>
<hr width="400" noshade>
</td></tr>
<% Wend %>
<% objRs.MoveNext %>

MoveNext fungerar uppenbarligen inte, så hur gör man?

(Så här har jag knåpat ihop SQL'n och databaskopplingen )

<%

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "dsn=mygb"

Sql = "SELECT * FROM tblGbk ORDER BY Id DESC"
Set objRs = objCon.Execute(SQL)

%>