Problema devo inserire in una tabella access "prodotti" un prodotto con un codice casuale, prima però voglio controlare che il codice non esista già nella tabella;
Ecco come procedo:

'Seleziono tutti i codici dalla tabella prodotti
querySelect = "SELECT codice FROM prodotti;"
Set objRecordSet = objConnessione.execute( querySelect)

do while not( b)
b = false
codiceRandom = cLng( rnd() * 100)
do while not( objRecordSet.EOF)
codiceTabella = objRecordSet("codice")
if codiceRandom = codiceTabella then
b = true
end if
objRecordSet.moveNext()
loop
loop

Mi esce un ciclo infinito, qualcuno può darmi un suggerimento???