从数据库随机取不重复的记录的sql语句

<%
Set Conn= Server.CreateObject("ADODB.CONNECTION")
ConnString = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data.mdb")  
Conn.Open ConnString
Randomize
Set RS = Conn.Execute("Select TOP 5 * FROM test order by rnd(-(id +" & rnd() & "))")
Do While Not RS.EOF
Response.Write  RS.Fields("record_info").value&"<br />"
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>