Movenext virker ikke

Ved følgende kode:
<%
user = session("user")
Set Forb = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("signalanlaeg.mdb")
Forb.open DSN
strSQL = "select * from anlaegsoversigt Order by betegnelse"
RS = Forb.Execute(strSQL)
%>
Vælg hvilket signalanlæg du vil se planer for:
<form name="form1" method="post" action="signalanlaeg.asp">
<select size="1" name="anlaeg">
<%
Do
  response.write("<option>")
  Response.Write rs("betegnelse")
  response.write("/<option>")
  rs.MoveNext
Loop While Not rs.EOF
RS.Close
forb.Close
Set RS = Nothing
Set forb = Nothing

gives følgende fejlbesked:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'MoveNext'

Hvad går der galt?