مشكلة فى كود الحفظ مع كود الترقيم التلقائى

اخوانى الأعزاء القائمين على هذا المنتدى العظيم

السلام عليكم ورحمة الله وبركاته

لدى مشكلة بسيطة

الكود التالى هو كود الترقيم التلقائى تحت زر جديد من خلال فيجوال بيسك 6 فى قاعدة بيانات sql2000

If rs.State = 1 Then rs.Close 
rs.Open "SELECT max(code) From [gen]", db, adOpenStatic, adLockOptimistic 
Text1 = rs(0) + 1

عند إضافة سجل جديد يتم الترقيم التلقائى بصورة جيدة

ولكن عند حفظ البيانات بالضغط على زر حفظ يعطى خطأ

وهذا هو كود الحفظ الذى استخدمه

With rs 
      If AddOREdit = True Then .AddNew 
        rs("code") = Text1.Text 
        rs("num") = Text2.Text 
        rs("kind") = Combo1.Text 
        rs("source") = Text4.Text 
        rs("tex") = Text5.Text 
        rs("notes") = Text6.Text 
        .Update 
 End With

ملحوظة : عند إزالة كود الترقيم التلقائى يتم الحفظ بدون مشاكل