مشكلة في اضافة سجل جديد في قاعدة البيانات

السلام عليكم

كل عام وانتم يخير

عندي مشكلة أرجو منكم مساعدتي فيها

المشكلة انني اعطي امر بإضافة سجل جديد في قاعدة بيانات من نوع مايكروسوفت أكسس بالكود التالي لكنه يقوم بالكتابة على نفس السجل

 
Dim r As String
r = MsgBox("هل أنت متأكد من إضافة سجل جديد", vbYesNo, "اضافة سجل جديد")
If r = vbYes Then
'يقوم أولا بالتعديل على السجل الحالي
data1.Recordset.Edit
'من نوع صواب أو خطأ
Data1.Recordset.Fields(10) = True
Data1.Recordset.Update
'اضافة السجل
Data1.Recordset.AddNew
'عملية ترقيم آلي 
Data4.Recordset.MoveLast
Text1.Text = Data4.Recordset.Fields(0) + 1
Else
Exit Sub
End If

أرجو منكم أرشادي هل طريقتي صحيحة أم لا

وإن كانت خاطئة فأرجو منك ارشادي الى الطريقة الصحيحة

وشكرا لكم