ASP Rastgele veri çekmek?

[bystone]

merhaba arkadaşlar asp de rastgele veritabanından vei çekerken şu hatayı alıyorum

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/portal/oyna.asp, line 0

buda listeleme için kullandığım kodlar:

<%
Set rastgeleoyun=Server.CreateObject("ADODB.Recordset")
Sorgu="Select * from OYUNLAR WHERE oyun_onay=1 LIMIT 1"
rastgeleoyun.Open Sorgu,baglanti,1,3
If rastgeleoyun.eof then
%>
         <div class="product_title">Oyun Bulunamad&#253;!</div>
<%
Else
Randomize
rastgele = Int((Rnd*rastgeleoyun.RecordCount)+0)
rastgeleoyun.Move(rastgele)
%>
    <a href="oyna.asp?oyun=<%=rastgeleoyun("id")%>"><%=rastgeleoyun("oyun_ismi")%></a>
      <a href="oyna.asp?oyun=<%=rastgeleoyun("id")%>">  <img src="<%=rastgeleoyun("oyun_resim")%>" border="0" width="100" height="100" /></a>
        Hit: <%=rastgeleoyun("hit")%>

 
<%
end if
rastgeleoyun.close
set rastgeleoyun = Nothing
%>

[Cyberneo]

If not rastgeleoyun.eof then 

şeklinde dene.

[bystone]

peki deniyorum şimdi

[bystone]

If not rastgeleoyun.eof then 

şeklinde dene.

oyun bulunamadı dedi ama oyunlar tablosunda oyun mevcut

[Cyberneo]

veritabanın acces mi mysql mi.