Gambas - validar contraseña

Hola de nuevo necesito su ayuda para el siguiente caso:
tengo una tabla llamada usuario y dos campos uno user y el otro pass necesito saber dedes mi formulario como puedo hacer si al entrar los datos en mi formulario me valide si el nombre de usuario y la contraseña son los correctos o no yo estoy intentando con este codigo pe me muestra un erro Object null cundo le doy al boton aceptar de mi formulario

PUBLIC SUB Aceptar_Click()
DIM clave0 AS String
DIM clave1 AS String

MFuncion.conecta.Exec("select *from usuario")

clave0 = MFuncion.reg["user"]
clave1 = MFuncion.reg["pas"]
IF usuario.Text = clave0 AND contrasena.Text = clave1 THEN
Message.Info("bienvenido al sistema ")
usuario.Show
ELSE
Message.Error("usuario o Contraseña incorrecto")
ENDIF
END

Saludos Pedro, me parece que tu problema es de logica de programacion pero en fin, yo haria lo siguiente (te doy la idea y luego buscas el ejemplo en el codigo fuente):

1) me conecto a la base de datos
2) reviso que el nombre de usuario exista (solo el nombre)
3) si el usuario existe verifico que password sea el mismo

para lograr lo anterior en gambas seria

' Gambas class file

PRIVATE conexion AS Connection
PRIVATE resultadp AS Result

PUBLIC SUB Form_Open()

ME.Center
conectar()

END

PRIVATE SUB conectar()

conexion = NEW Connection 'creamos la instancia de la conexion

'indicamos los parametros para conectarnos
conexion.Type = "sqlite"
conexion.Name = "ejemplo"
conexion.Host = Application.Path
conexion.Open

IF conexion.Opened = TRUE THEN
PictureBox1.Picture = Picture.Load("Image2.png")
PictureBox1.ToolTip = "conectado a la BD"
PictureBox1.Tag = 2
ENDIF
'verificamos
CATCH
Message.Error("No se pudo conectar a la base de datos")
PictureBox1.Picture = Picture.Load("Image1.png")
PictureBox1.ToolTip = "No conectado a la BD"
PictureBox1.Tag = 1

END

PRIVATE SUB desconectar()

conexion.Close
PictureBox1.Picture = Picture.Load("Image1.png")
PictureBox1.ToolTip = "No conectado a la BD"
PictureBox1.Tag = 1

END

PUBLIC SUB Button1_Click()
DIM i AS Integer

IF conexion.Opened = FALSE THEN
conectar()
ENDIF

'ejecuto una consulta a la bd
resultadp = conexion.Find("usuarios", "usuario=&1", TextBox1.Text)

IF resultadp.Count = 0 THEN
Message.Warning("Lo siento el usuario no existe")
RETURN
ELSE
FOR i = 0 TO resultadp.Count - 1
IF TextBox2.Text = resultadp!clave THEN
Message.Info("Bienvenido")
RETURN
ENDIF
resultadp.MoveNext
NEXT
ENDIF
Message.Warning("Lo siento la clave es incorrecta")

END

Excelente Gracias por la ayuda, ya que estaba lejos de conseguir que me validara la contraseña

Si quieres ver el ejemplo en ejecucion ya le envie al moderador un ejemplo completo, cuando tengas una oportunidad revisalo, estamos a la orden

Me dio error tu solución :C donde descargo el ejemplo?