ASP - ¿Donde está el problema?

Hola:
¿Qué está mal hecho?. Me da un error en "RV.open..".

Set RQ = Server.CreateObject("ADODB.RecordSet")
Set RV = Server.CreateObject("ADODB.RecordSet")
sSeekHijo="select id from menu where nombre='" & ascendente & "'"
RQ.open sSeekHijo,Conn
dim idbusq
idbusq=0
idbusq=RQ("id")
sSeekId="select id from menu where (id<idbusq) AND (id<(idbusq+9))"
RV.open sSeekId,Conn
Do while not RV.EOF
i=RV("id")
if i>idbusq then
idbusq=i
end if
RV.movenext
Loop
maxid=idbusq+1

Muchas gracias!!!

Bueno no se muy bien lo que quieres ni donde te da el error, pero encontre que en el código hay algun error:
idbusq es una variable y para insertar su valor en una cadena debe estar fuera de las comillas:
sSeekId="Select.... where id<" & idbusq & " and id<" & idbusq+9

ademas una de las comparaciones sobra, si tiene que ser menor que idbusq, obligatoriamente tiene que ser menor que idbusq+9, basta solo id<idbusq

posterirormente cuando comparas si i>idbusq, sera siempre imposible, ya que el rs solo extrajo los valores menores.