order by ve where komutunu aynı anda kullanmak

merhaba arkadaşlar,
order by ve where komutunu aynı anda kullanmaya çalışıyorum ancak hata veriyor.

kullandığım kod bu ;

<%
Set rsurun = Server.CreateObject("ADODB.Recordset")
rsurun.open "Select * from urun where vitrin = 'Evet' order by urunid desc" ,baglan,1,3
Randomize
rastgele = Int((Rnd*rsurun.RecordCount)+0)
rsurun.Move(rastgele)
%>


aldığım hata ;

ADODB.Field (0x80020009)
Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor.


yardımlarınız için şimdiden teşekkürler.

yeni üretilen sallama ayı olan id veritabanında bulunamıyor. daha sağlıklı bir random yaz

<%
Set rsurun = Server.CreateObject("ADODB.Recordset")
rsurun.open "Select * from urun where vitrin = 'Evet' order by urunid desc" ,baglan,1,3
if rsurun.eof then
response.write "kayıt yok"
else
Randomize
rastgele = Int((Rnd*rsurun.RecordCount)+0)
rsurun.Move(rastgele)
end if%>

bu şekilde sorunsuz çalışacaktır..

silinen kaydı arıyor. lovemove doğru halini yazmış.

yardımınız için teşekkürler.

pardon cevap verilmiş zaten