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

Private Sub cmdAdd_Click()
 On Error GoTo AddErr
    Adodc1.Recordset.AddNew
    Adodc1.Caption = "Record: " & CStr(Adodc1.Recordset.AbsolutePosition)
    txtFields(0).SetFocus
Exit Sub
AddErr:
  MsgBox Err.Description
 End Sub

Private Sub cmdUpdate_Click()
Adodc1.Recordset.Fields(0) = Adodc1.Recordset.AbsolutePosition
 On Error GoTo UpdateErr
Adodc1.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
  MsgBox Err.Description
 End Sub