Access - Ayuda....

Hola, necesito vuestra ayuda si es posible, vereis, tengo un formulario que es emergente de otro.
Selecciono un registro y cuando está abierto el otro formulario al pasar a otro reg debe sincronizarse para lo que he escrito el siguiente código (que utilizo en otra base y funciona),

Private Sub Form_Current()
' Sincroniza el formulario si está abierto
If EstaAbierto("visitas") Then
Forms!visitas.Filter = "dni = " & Nz(DNI, 1)
End If

End Sub

Sin embargo en esta me visualiza el siguiente error:

Se ha producido el error '3075' en tiempo de ejecución.
Error de sintaxis (falta operador) en la expresión de consulta 'dni = 12345654S'.

Podeis ayudarme?

El campo DNI es de Texto puesto que lleva una letra al final y tu lo estás tratando como si fuera Numérico, ponlo así:

Forms!visitas.Filter = "dni =' " & Nz(DNI, 1) & "'"

Observa que he añadido dos comillas simples, una después del segundo signo igual y otra al final.

Saludos
Enrique