devi fare una function:
codice:
function creaId(nome_tabella)

dim id
randomize

..creo numero random

..controllo che non ci sia nel database con
select id from tabella where id= & mionumerorandom

if rs.eof then
creaId(tabella)
end if

...

end function
in linea di massima se fai un random di un numero molto grosso te lo trova al primo colpo, altrimenti si farà qualche giretto...oppure potresti prendere in un array tutti gli id che hai nel database e usi l'array invece di chiedere sempre al database nell'iterazione

boh cmq divertiti