Hämta först antal poster i tabellen, sen sätter du bara det som högsta värde när du ska randomiza.
SQL = "SELECT COUNT(*) AS cntAntal FROM tblTabell"
set Antal = ConnectionObjekt.Execute(SQL)
Randomize
nRandom = int(rnd * cInt(Antal("cntAntal")))
Antal.Close
set Antal = Nothing
SQL = "SELECT * FROM tblTabell WHERE id = " & nRandom
set Post = ConnectionObjekt.Execute(SQL)
...