FoxPro/Visual FoxPro - Formulario de Ingreso no funciona

Estimados he creado un formulario de ingreso para seguridad de mi aplicacion
pero al ingresar me aparece el cuadro de dialogo con la base de datos para seleccionar la tabla de usuarios del sistema, pueden darme una mano ?.. gracias por anticipado

el codigo
==============
SET EXACT ON
public sw
sw=.f.
v1=allt(thisform.text1.value)
v1=thisform.encriptar(v1,1)
v2=allt(thisform.text2.value)
v2=thisform.encriptar(v2,1)
IF EMPTY(V1) OR EMPTY(V2) THEN
=messagebox("Introduzca usuario y clave")
RETURN
endif
IF (con<3 and sw=.f.) THEN
locate for login=v1
IF FOUND() THEN
LOCATE FOR password1=v2
if found() then
VUSUARIO=THISFORM.TEXT1.VALUE
VNIVEL=NIVEL
ELSE
_SCREEN.CAPTION="SISTEMA - COPIA LIMITADA [[ALMACEN # "+ALLT(STR(VALMACEN))+" ]]"
ENDIF
do form presentacion
sw=.t.
RELEASE THISFORM
ELSE
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT2.SETFOCUS
=MESSAGEBOX("Clave incorrecta")
con=con+1
endif
else
=MESSAGEBOX("Usuario incorrecto")
con=con+1
endif

IF CON=3 THEN
CON=0
THISFORM.RELEASE
set sysmenu to defa
clear events
ENDIF

Willian, debes abrir una tabla que supongo que es donde tienes el usuario y su clave, no veo donde la abres. A eso se debe el cuadro de dialogo.....

DEBES ABRIR O SELECCIONAR UNA TABLA

POR EJEMPLO;

SELECT TU_TABLA