<font color=green>' Datensatz löschen (egal welchen ;-))</font>
Tabelle.Delete
 
<font color=green>' zunächst prüfen, ob jetzt überhaupt noch Datensätze 
' vorhanden sind</font>
If Tabelle.RecordCount > 0 Then
  <font color=green>' Ja, es sind noch Datensätze vorhanden
  ' Datensatz-Zeiger auf den nachfolgenden Datensatz setzen
  ' (falls einer vorhanden)</font>
  Tabelle.MoveNext
  If Tabelle.Eof Then
    <font color=green>' Es existiert kein nachfolgender Datensatz (letzter 
    ' Datensatz wurde gelöscht)</font>
    <font color=green>' Ergo: Einfach auf den letzten Datensatz 
    ' "springen"</font>
    Tabelle.MoveLast
  End If
 
  <font color=green>' Jetzt nachfolgenden Datensatz in der Maske anzeigen</font>
  txtName.Text = Tabelle("Name")
  ...
Else
  MsgBox "Keine Datensätze mehr vorhanden!" & vbCrLf & _
    "Bitte erst wieder neue Datensätze eingeben!"
End If</code>