træk tilfædlig record ud fra access database

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data.mdb\")

for i = 1 to 1

Set counter = Conn.Execute(\"SELECT Count(*) AS Count FROM statement\")

Set rs = Conn.Execute(\"SELECT * FROM statement\")

If counter(\"Count\") > 0 Then
Randomize()
Move = Int((counter(\"Count\") - 1 + 1) * Rnd + 1) - 1

rs.Move Move
End If
if rs.eof Then
response.write \"Der blev ik fundet noget\" & \"<br>\"
else
Response.Write rs(\"tekst\") & \"<br>\"
end if

Set rs = Nothing
set counter = nothing
next

Conn.Close
Set Conn = Nothing

Ok kun vha programmering så