problemer med Randomize

Jeg skal vælge en tilfældigt record fra min table, men kan ikke rigtig få Randomize til at virke.

DB bliver åbnet tidligere, og jeg har ikke problemer i at hente data, kun ved at randomize dem.

<%
StrSQL = "select * from Tabel"
set rs = Conn.execute(strSQL)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst

Do Until rs.EOF
%>

//lidt html

<%= rs("record") %>

//lidt mere html

<%RS.MoveNext
Loop
%>