Eğer tabloya kaydedilmisse
do while benzeri bir döngü işinize yarayabilir.

Do 

soru_sayisi = Int((33 * Rnd) + 1)

adj_id.Value = soru_sayisi

i=dcount("*","TabloAdi", "cikanlar=" & soru_sayisi ) 

Loop Until i<1 '

gibi..