FoxPro/Visual FoxPro - ASIGNACION DE MENUS

TENGO UNA APLICACION QUE ME GUARDA MENUS EN TABLAS NESESITO CREAR UN FORMULARIO LOSGIN PARA PODER ASIGNAR ESTOS MENUS

para crear login de usuarios debes crear una tabla de control de usuarios

__________________
tblUsuarios
--------------------------------
usuario
contraseña

******************************************************
en en form debes poner los txt

txtUsuario
txtContraseña

en un boton de comando pon este codigo:

----------------------------------------------------------------------------
public cUsuario, cContraseña

cUsuario=alltr(thisform.txtUsuario.value)
cContraseña=alltr(thisform.txtContraseña.value)

if alltr(cUsuario)==alltr(campo1_Tablausuario) and
alltr(cContraseña)==alltr(campo2_tablausuario)
do menu.mpr
else
m=messagebox("Usuario o clave incorrecta")
endif

Saludes