jmeddaugh,

In your cmdGenerate_Click code, specifically this line:
lID = Int(Rnd() * 9999) + 10100001
Change the 9999 to 8999