1. Lösche Datensatz
   
2. Prüfe, ob anschliessend überhaupt noch Datensätze vorhanden sind
   
3. Wenn ja, dann prüfe, ob sich unmittelbar nach dem gelöschten Datensatz noch ein Datensatz befindet
   
4. Wenn ja, dann Datensatzzeiger auf diesen bewegen
   
5. Wenn nein, auf den letzten Datensatz springen (im Prinzip gleichbedeutend mit auf dem vorigen wechseln)
   

<code>Rs.Delete
If Rs.RecordCount > 0 Then
  Rs.MoveNext
  If Rs.EOF Then Rs.MoveLast
End If</code>