سلام و خسته نباشید ......
برای اضافه کردن ردیف در رکورد جدید که فکر کنم مشکلی نداشه باشی ...
یا هم یه فیلد از نوع اتو نامبر داخل اکسس ایجاد کنی که فقط در صورت حذف نکردن رکورد جدید صحیح عمل میکنه .
Adodc1.Recordset.Fields("ID") = Adodc1.Recordset.RecordCount
آما برای حذف هم می تونی از این کد استفاده کنی هر چند استاندارد نیست ..... اما کارت رو راه میندازه .
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
Adodc1.Recordset.Fields("ID").Value = CStr(i)
If i <= Adodc1.Recordset.RecordCount Then
Adodc1.Recordset.MoveNext
End If
Adodc1.Recordset.Update
Next i