Error de sintaxis en una función para una consulta

A ver, estoy intentando adaptar la función de Neckitto para hallar el valor del registro anterior en una consulta, y me da el error de sintaxis de que falta operador en "Id<" & Id:

Public Function Diferencia(CampoARestar As String) As Variant
    Dim regAnterior As Variant
    If IsNull(CampoARestar) Then Exit Function
    regAnterior = Nz(DMax(Replace(CampoARestar, ",", "."), "TPrecio", "Id<" & Id), 0)
    If regAnterior = 0 Then
        Diferencia = regAnterior
    Else
        Diferencia = CampoARestar - regAnterior
    End If
End Function

Lo que quiero obtener es lo siguiente:

5-Feb-2020 5,6 --> que la función de null porque es el primer registro

8-May-2020 7,5 --> que la función de 1,9

6-Jul-2020 6,5 --> que la función de -1

El campo a restar es "Precio". Tengo que usar el replace porque tiene comas. Y lo que me falla es el criterio.

Esta forma de hacerlo debería funcionar porque la tengo adaptada para un formulario.

¿Qué hago mal?