FoxPro/Visual FoxPro - PORQUE NO FUNCIONA EL SEEK

Estoy adicionando un nuevo registro y quiero que éste no se duplique he usado lo siguiente en el evento valid de la caja de texto, pero la messagebox aparece aunque el registro no exista. Gracias.

*Verifica que el código no exista.
key=alltrim(THIS.VALUE)
SET NEAR ON
SELECT VIBODE *Este es el nombre de la vista.
SET ORDER TO codbod *Este es el nombre del campo.
SEEK key
IF FOUND()
=MESSAGEBOX("Codigo de Bodega ya Existe,Intentelo de nuevo",0,"ATENCION")
=tablerevert(.t.)
thisform.enadicion=.f.
thisform.enedicion=.f.
Thisform.limpiar_cajastexto
Thisform.opciones_botoncancelar
else
thisform.opciones_botonadicionar
thisform.txtnombre.visible=.t.
thisform.txtnombre.enabled=.t.
thisform.txtdireccion.visible=.t.
thisform.txtdireccion.enabled=.t.
thisform.txtnombre.setfocus
Endif

Me parece que el problema está en el SET NEAR
Si buscas por ej. "100" y escribes "10" el found() te dará verdadero (aunque no exista), porque te esta buscando uno "cercano"...
Espero que te sirva

Hola Nelson:

Prueba estas lineas y me cuentas:

...
Select VIBODE
lnReg = RecNo()
Set Order To CodBod
Seek Key
If Found() And RecNo() <> lnReg
* Existe el Codigo
Else
* No Existe
EndIf

Saludos

Mi programa de busqueda no funciona.
¿ el seek puede ser un problema?