ASP Access Rastgele veri çekme

Arkadaşlar merhaba, asp ve access ile veri tabanındaki bir tablodan tek bir sütuna ait 3 adet rastgele veri çekip ekrana yazdırmak istiyorum. Aşağıdaki kodu internette buldum;

Set Dbconnection = Server.CreateObject("ADODB.Connection")
Dbconnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabanim.mdb")

Set rs = Server.Createobject("ADODB.Recordset")
Sql = "SELECT * FROM tabloadi"
rs.open Sql,Dbconnection,1


For i = 1 to 3

Randomize
Rastgele = Int((Rnd*rs.RecordCount)+0)
Rs.Move(Rastgele)

Response.Write rs("isim")


Kod bazen çalışıyor bazen çalışmıyor, kafasına göre 1,2 veya 3 adet veriyi ekrana yazdırıyor. 1 veya 2 adet yazdırdığında;

ADODB.Field hata '80020009'

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

Şeklinde hata alıyorum, işin içinden çıkamadım yardımcı olursanız sevinirim.

silinmiş id lere denk geliyor olabilir.

Vt da silinmiş bir id yok :/

SELECT TOP 3 kolonID FROM [tabloadi] ORDER BY rnd(INT(NOW*kolonID)-NOW*kolonID)

Arakdaşlar kullanmak isteyenler için sorunsuz çalışıyor;

<%
dim i
For i=1 to 3 %>
<%

Response.ContentType="text/html"
Response.Charset="UTF-8"
Response.Codepage=65001
set vt=server.createobject("adodb.connection")
vt.open"Provider=Microsoft.Jet.oledb.4.0;Data source="&Server.Mappath("vt.mdb")

set rs = server.createobject("ADODB.Recordset")
sql = "select * from tabloadi"
rs.open sql,vt,1,3


Randomize
rastgele = Int((rs.RecordCount * Rnd)+ 0)
Randomize

%>

<%
Rs.Move(rastgele)
%>
<%=rs("sütunadi")%>

<% next %>
<%
vt.Close
Set vt = Nothing
%>