Ok ora ho capito.
I dati li visualizzi su una Maschera...?
Nel caso [SI] ti basta sfruttare il RecordsetClone, che risulta trasparente per la visualizzazione, spostarti avanti con un MoveNext, leggere la data [DAL] tornare al Bookmark e modificare il valore...!
La cosa è molto semplice
Dim dtDate As Date
With Me.RecordseClone
.MoveNext
dtDate=!CampoDataDAL
.MovePrevious
.Edit
!CampoDataAL=DateAdd("d",-1,dtDate)
.Update
End With
Chiaramente devi mettere qualche controllo se sei in BOF o EOF...
Se invece non hai visualizzato in Maschera, stessa cosa ma devi aprire un Rs R/W sulla tabella ordinata correttamente.
Spero sia chiaro.