FoxPro/Visual FoxPro - Acceso de usuarios

Buenos dias les escribo para hacerles una consulta. Estoy tratando de hacer en foxpro 9, un acceso de usuarios registrado pero no logro que funciones. El formulario cuenta con dos casilla de texto una para usuario y otra para pasword y con dos botones un aceptar para ingresar al sistema y un salir
La tabla solo tiene dos campos Usuario y Pasword, este es el codigo que incluyo en el botos aceptar:

Public contrase
contrase=thisform.text2.Value
select * from prueba where Usuario=thisform.Text1.value INTO CURSOR accesos
if accesos.Pasword=contrase then
messagebox ("Usuario Aceptado")
else
messagebox ("Intente Otra Vez")
thisform.release()
endif

Pero siempre me dice Intente Otra Vez. Desde ya agradeceria su ayuda.
Saludos
Sebastian

La tabla acceso, puedes crear una clave normal al campo usuario, algo asi:
ALL(UPPER(usuario))
Puedes probar algo de esto
*--- En el VALID de usuario
vusuario = ALLT(UPPER(thisform.text1.value))
IF SEEK(vusuario)
messagebox ("Usuario Aceptado")
ELSE
messagebox ("Intente Otra Vez")
ENDIF
*----
*--- En el VALID de password
IF thisform.text2.value = usuario.password
messagebox ("Clave Aceptado")
ELSE
messagebox ("Intente Otra Vez")
ENDIF
*---

Mauricio / Chucho, de ambas formas anda perfecto, muchisimas gracias.
Saludos
Sebastian

Hola Seba:
Probá usando Upper en las condiciones.

select * from prueba where Upper(Usuario)=Upper(thisform.Text1.value) INTO CURSOR accesos

if Upper(accesos.Pasword)=Upper(contrase)

Saludos