Aplicación para la identificación de usuarios en Power Builder 10

Buenas, tengo dificultades para hacer una ventana de identificación de usuarios, en especial porque siempre considera que los datos son incorrectos.

He estado usando este código:

SELECT cd_usua,
cd_pass
INTO :gs_usuario,
:gs_password
FROM t_usuario
WHERE (cd_usua = :sle_usuario.text) and (cd_pass = :sle_password.text);
if sle_usuario.text<>"" and sle_password.text<>"" then
if sle_password.Text = gs_password then
close(login)
// Abro la pantalla principal del sistema
open(principal)
else
messagebox("Error al identificarse", "Datos incorrectos. Por favor, vuelva a intentar", Exclamation!)
sle_usuario.text = ""
sle_password.text = ""
sle_usuario.setfocus()
//messagebox("Code", gs_password)
end if
else
messagebox("Aviso Importante", "Por favor ingrese sus datos", Question!)
sle_usuario.setfocus( )
end if

Saludos.