FUNCTION randomID
   ....
   ....
END FUNCTION
'
'
' Estraiamo gli ID che assegneremo all'array bidimensionale con .GetRows
' estraiamo con un ciclo dall'array tutte le occorenze di ID costruendoci 
' una stringa di con tutti gli ID separati da spazi (es.: strID)
'
strSql = "SELECT ID FROM nometabella;"
objRS.Open strSql
arrayID = objRS.GetRows()
'
' Ciclo costruzione stringa
FOR n = 0 TO UBOUND(arrayID,2)
    strID = strID & arrayID(0,n) & " "
NEXT
'
'
'
' Ciclo di generazione ID
'
FOR i = 1 TO 30
' 
   ID = randomID()
   '   Controlliamo che l'ID esista senza più preoccuparci che sia compreso nel range
       IF Instr(strID, ID)
           strRange = strRange & ID & ","
       ELSE
           ' decrementiamo il contatore per rigenerare l'ID
           i = i-1
       END IF
NEXT
'
' Priviamo la stringa dell'ultima virgola
'
strRange = Left(strRange,Len(strRange)-1)
'
'
' Al termine avremo eseguito 30 assegnazioni valide di ID e potremo eseguire la Query
' con la certezza di aver estratto 30 effettivi ID
'
strSQL = "SELECT campoID FROM nometabella WHERE campoID IN (" & strRange & ");"

idusciti = "7, 3, 2" 'questo lo riempi dinamicamente
sql = "SELECT * FROM tabella"
if Len(idusciti)>0 then
sql = sql & " WHERE id NOT IN (" & idusciti & ")"
end if
'esegui la query e scegli i record

SELECT *
FROM tabella
ORDER BY RAND()