Access - SetFocus

Hola, ¿cual puedes er la razón de que n este código que adjunto no funciones el SetFocus del final? Si necesitais saber algún otro dato sobre la configuración de la BD, por favor preguntar. Gracias

Private Sub DATO1_AfterUpdate()
If DCount("*", "COMP2009", "[NºComp]=" & Me!DATO1 & "") > 0 Then
MsgBox "ESTE NUMERO DE REGISTRO YA EXISTE", vbCritical, "CONTROL DE DUPLICADOS"
Me!DATO1 = Null
Me.DATO1.SetFocus
End If
End Sub

Lee este hilo, hay algo de eso

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=1&texto=Access&n1=533541&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Desde Venezuela
Jefferson