Private Sub cmdUpdate_Click()
  On Error GoTo UpdateErr
 
  adoPrimaryRS.UpdateBatch adAffectAll
 
  If mbAddNewFlag Then
    adoPrimaryRS.MoveLast              'Zu neuem Datensatz gehen
  End If
 
  mbEditFlag = False
  mbAddNewFlag = False
  SetButtons True
  mbDataChanged = False
 
  Exit Sub
UpdateErr:
  MsgBox Err.Description
End Sub