Función Me.Grado = Nz(DLookup

tengo esto en un evento

Private Sub identificacion_AfterUpdate()
Me.prueba = Nz(DLookup("Nombre_del_contacto", "Contactos ampliados", "cedula=" & Nz(Me.identificación, -1)), "")
Me.Organización = Nz(DLookup("Organización", "Contactos ampliados", "cedula=" & Nz(Me.identificación, -1)), "")
Me.Dependencia = Nz(DLookup("Dependencia", "Contactos ampliados", "cedula=" & Nz(Me.identificación, -1)), "")
Me.Cargo = Nz(DLookup("Cargo", "Contactos ampliados", "cedula=" & Nz(Me.identificación, -1)), "")
Me.Grado = Nz(DLookup("Grado", "Contactos ampliados", "cedula=" & Nz(Me.identificación, -1)), "")como puedo hacer para que cuando no halla registro en la tabla contactos ampliados siga normal y rellene los otros campos pues ahora me manda si no tiene datos y como puedo hacer esto pero para un campo adjuntos error como si todos lo campos tuvieran que ser requeridos