Como impedir que el usuario introduzca un valor de fecha superior a la actual

Tienes que ponerlo en el evento Antes de actualizar del control. Por ejemplo, supongamos que está escribiendo en el cuadro de texto FechaInicio. Entonces sería

If fechainicio>Date() then

Msgbox"De eso nada monada, la fecha no puede ser mayor que la actual", vbokonly,"En los viajes en el tiempo quizá posible"

Cancel=true

end if

Así, cuando la escribas y pulses Enter o te vayas del cuadro de texto te aparece el mensaje y el cursor se vuelve a ese cuadro de texto

EL código debe ir en el evento Antes de actualizar de cada campo de texto, los campos deben tener en propiedades el formato fecha corta.

Le dejo la validación para un control, debe hacer lo mismo con el otro control

If IsDate(Me.Inicio) Then
   If Me.Inicio > Date Then
       MsgBox "Debe introduir una fecha inferior a la actual", vbInformation, "Cuidado"
       Cancel = True
 End If
Else
  Cancel = True
End If
End If

Aceptando que la de inicio no debiera ser superior a la fecha actual ¿qué problema puede haber si la final lo es?.

Si no hay datos superiores a la fecha actual, mostrara hasta la mayor de las que tenga (que superen a la fecha inicial).

Para ser estrictos de debería impedir que ambas fechas fueran:

La inicial: igual o superior a la menor de las fechas existentes en la base
La final: menor o igual a la mayor de las existentes

Y para que el usuario se atenga a estas, basta proponerlas como valor por defecto (en bastantes ocasiones suele ser el periodo que se desea obtener).