Eğer kullandığın Veritabanı çeşiti MYSQL ise ;
Mysql den rastgele veri çekme :
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
rsSQL = "SELECT * FROM tabloadi ORDER BY RAND() "
Rs.Open rsSQL,dbBaglantiNesnen,1
%>

Eğer MSSQL ise :
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
rsSQL = "SELECT * FROM tabloadi ORDER BY NEWID() "
Rs.Open rsSQL,dbBaglantiNesnen,1
%>

Access ise arkadaşların verdiği kodu dene

Tavsiyem Access MDB kullanma zaten performansı çok düşük