[access 2000] riesecuzione di una query dopo EOF

[eng]

Ciao a tutti,
ho già cercato sul forum e su web risposta al seguente quesito, senza successo.
La soluzione probabilmente è banale.

Dim SQL_area, rec_area
SQL_area = "SELECT * FROM area ORDER BY area"
Set rec_area = Server.CreateObject("ADODB.Recordset")
Set rec_area = Conn.Execute(SQL_area)

While Not rec_area.EOF%><%=rec_area("area")%>
<%rec_area.MoveNext 
Wend%> 

Al termine del ciclo WHILE offiamente siamo a EOF.
Voglioriewsceguire ancora altri cicli sul medesimo recordset e quindi posizionarmi sul primo elemento.
Non riesco ad applicare il metodo MoveFirst e neppure Requery.
Mi danno tutti errore "necessario oggetto".

Allora applico

Set rec_area = Server.CreateObject("ADODB.Recordset")
Set rec_area = Conn.Execute(SQL_area) 

seguito dal successivo ciclo WHILE.
Spuppongo che ci sia almeno un'altra soluzione, non ripetitiva ed esteticamente bella.
Qual è ?
Grazie
ciao