Ciao Ragazzi, chi sa applicare il metodo filter nello script seguente, per filtrare il valore già uscito?

Lo script che segue estrae da un db valori a caso, con filter devo fare un controllo per non far ripetere i valori se non prima di averli estratti tutti
codice:
<%
dim Conn10
set  Conn10 = server.createobject ("Adodb.Connection")
dim rs10
set rs10=server.CreateObject("Adodb.recordset")
Conn10.ConnectionString="provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath ("/mdb-database/data.mdb")& ";"
Conn10.Open

dim id
dim nome
   rs10.Source="select id,nome from Tabella  ;"
   rs10.Open ,conn10
   while not( rs10.eof)
   id=rs10(0)
   nome=rs10(1)
   rs10.MoveNext 
     wend
    rs10.Close
	
Dim Numero 
Randomize 
Numero = 1 + int(Rnd * id) 
rs10.Source="select * from Tabella where id=("& Numero &") ;" 
rs10.Open,conn10

arrtabella=rs10.GetRows()

For iRiga=0 to ubound(arrtabella, 2)
For iColonna=0 to ubound(arrtabella, 1)
Response.Write("<td>"&arrtabella(iColonna,iRiga)&"</td>")
Next
Next 
%>