Restar campo a fila anterior mismo campo

Hola , llevo muy poco aprendiendo a utilizar VBA y mirando recompuse este código para utilizarlo

Private Sub Vehiculo_Kilometros_AfterUpdate()
'Declaramos las variables
Dim ultimaLectura As Long, lecturaActual As Long
Dim diferencia As Long
'Cogemos la lectura introducida
lecturaActual = Nz(Me.Vehiculo_Kilometros.Value, -1)
'Si no hay valor salimos
If lecturaActual = -1 Then Exit Sub
'Cogemos la lectura anterior
ultimaLectura = Nz(DLast(Me.Vehiculo_Kilometros.Value, NOpcional), -1)
'Si el valor es -1 es que no había lectura anterior. Lo igualamos a cero
If ultimaLectura = -1 Then ultimaLectura = 0
'Realizamos la resta
diferencia = lecturaActual - ultimaLectura
'Escribimos el valor en el campo <Vehiculo_RestaKms>
Me.Vehiculo_RestaKms.Value = diferencia
End Sub

bueno, el problema es la instrucción subrayada mi intención es que cuando se introduzca un nuevo registro de kilómetros el anterior registro reste al nuevo y poder poner esa resta en un campo llamado Vehiculo_RestaKms

mas que solucionarlo me gustaría saber porque y como lo hago bien. Gracias