consulta gotocontrol

Hola, Lo que quiero hacer es que si el projecto elegido es invalido, el cursor se quede en ese campo y no avance. Pero no me funciona. :( Gracias Private Sub Projecto_AfterUpdate() Dim First As Variant First = DLookup("[PrjName]", ...