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