وقوف الadodc عند السجل المضاف حديثآ

فى لغة الVB6
لدى ADODC متصل باستعلام بقاعدة بيانات

وكتبت كود اضافة سجل جديد
ويعمل تمامآ
ولكنه يقف دائمآ بعد الاضافة
عند آخر سجل
فهل من أمر يجعل الADODC يقف عند السجل المضاف حديثآ مهما كان موضعه بين السجلات

[LEFT]Private Sub cmdAdd_ClickCOLOR=#007700[/color]
On Error GoTo AddErr
Adodc1.Recordset.AddNew
Adodc1.Caption = "Record: " & CStrCOLOR=#007700[/color]
txtFieldsCOLOR=#007700.SetFocus[/color]
Exit Sub
AddErr:
MsgBox Err.Description
End Sub

Private Sub cmdUpdate_ClickCOLOR=#007700[/color]
Adodc1.Recordset.FieldsCOLOR=#007700 = Adodc1.Recordset.AbsolutePosition[/color]
On Error GoTo UpdateErr
Adodc1.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub [/left]


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

أليس لهذا الموضوع حل؟