qualcuno di buon cuore può aiutarmi con questo ciclo?

ricevo questo messaggio di errore

error '80020009'

alla riga Do while Rs("Classe") = Codice

credo che possa centrarci qualcosa il comando Rs.moveNext in quanto l'errore si verifica nel momento in cui i dati da estrarre dal DB sono terminati

per favore HELP MEEEEE!!!!!!!!



<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH")&("\m dbdbase\xxxx.mdb;")

Dim Rs
Set Rs = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM Classi ORDER BY Classe;"

Rs.Open SQL, conn

do until Rs.eof
Codice=RS("Codice")
response.write "<div>" & vbCrLf
response.write "<span>" & RS("Classi.Descrizione") & "</span>" & vbCrLf
Do while Rs("Classe") = Codice
Response.Write(""&Rs("Classi.nome")&"")& vbCrLf
Rs.moveNext
Loop
Loop
%>