' Einen Datensatz zurück
With Tabelle
  If .RecordCount > 0 And Not .BOF Then
    .MovePrevious
    If .EOF Then .MoveFirst
  End If
End With

' Einen Datensatz vor
With Tabelle
  If .RecordCount > 0 And Not .EOF Then
    .MoveNext
    If .EOF Then .MoveLast
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de