ناصر عزيز
در مورد سورس شما بايد بگم كه اين سورس يك اشكال چاپي داره : 
Do While Not objAutoNum.EOF 
lastnum = AutoNum("number") 
objAutoNum.MoveNext 
Loop 
كه بصورت زير اصلاح كن
Do While Not objAutoNum.EOF 
lastnum = objAutoNum("number") 
objAutoNum.MoveNext 
Loop 
اميد وارم كه...