FoxPro/Visual FoxPro - validar alta en una tabla

hola:

tengo una tabla de articulos donde la clave principal es codpro c(6)
ingreso los nuevos codigos para dar de alta a traves de un text box tengo un boton de comando para grabar el alta y en el evnto click del mismo pongo:

locate for codpro =text1.value
if found()
*saco mensaje de que ya existe el codigo
endif
if not found()
*doy el alta
endif

el tema es que aunque por el textbox ingrese un codigo que ya existe
siempre pasa por el segundo if (elde not found())
hay algo mAL O MAS OPTIMO PARA VALIDAR LA ENTRADA.
DESDE YA GRACIAS

Se hace Haci :
en se código te falta lo que te agregué .

locate for Alltrim(codpro) =Alltrim(This.text1.value)
variables=campo
variables=campo
...
...

if found()
*saco mensaje de que ya existe el codigo
endif
if not found()
*doy el alta
endif

Hola:
Algo asi seria el codigo, en el evento VALID

Sele MiTabla
if SEEK(Text.Value,"MiTabla","MiIndice")
messagebox('Esta Codigo Ya existe.....',0+48+0,'ADVERTENCIA')
return .F.
else
*Doy de alta
endif

Saludos