kod za redni broj

Mozeli mi neko napisati kod u VB za automatsko azuriranje rednog broja recorda u datashet subFormi
u text.Boxu sa nazivom ReBr, Baza i interfejs Aplikacije napravljena je u MsAccesu.Hvala vam puno...

Koji je Record Source za slogove podataka u toj Subform-i, neka tabela, upit ili druga forma?
Postoji li u izvoru polje sa tipom podatka AutoNumber?
Ne vidim u čemu je problem da se u podformi generiše automatska numeracija.

Record source za slogove podataka u Subform-i je Upit
U izvornu tabelu ne postoji polje sa tipom podataka AutoNumber ali postoji polje sa tipom pdataka Number(LongInteger) koja se zove ReBr.
Ta SubForm-a je podforma recimo Forme1 koja u SubFormu ima 5 redova ili forme2 koja u Subform-i ima 7 redova itd.Trenutno ja to azuriram rucno pisajuci 1,2,3,4,5,6 itd. Postoji li mogucnost da se to automatski radi recimo kad polje ReBr u SubForm-i
dobije fokus da ubaci odgovarajuci redni broj.Mislim da sam uspeo da objsnim o cemu je problem....
Hvala.