Power Builder - AYUDA SELECT POR FAVOOOORRRRRR

Buenas Tardes alguien me podria decir porque este select (o el if) no quieren funcionar, espero sus respuestas, saludos y gracias

char usuario, contrasena, tipo_user
int id_user

usuario = trim(sle_1.text)
contrasena = trim(sle_2.text)

SELECT "usuarios"."user",
"usuarios"."password",
"usuarios"."tipo_usr",
"usuarios"."id_usr"
INTO :tipo_user, :id_user
FROM "usuarios"
WHERE ("user" = :usuario) and ("password" = :contrasena);

If sqlca.sqlcode = 0 then
MessageBox('Error','Usuario No Válido. Intente Nuevamente.')
close(w_login)
Else
MessageBox('Bienvenido','Presione aceptar para continuar.')
open(w_bienvenida_casos)
close(w_login)
End If

Saludos...

Tienes el select de cuatro (4) columnas y solo dos (2) variables para recibir los datos...debiera ser así...
SELECT "usuarios"."tipo_usr", "usuarios"."id_usr"
INTO :tipo_user, :id_user
FROM "usuarios"
WHERE ("user" = :usuario) and ("password" = :contrasena);


Espero que te sirva...

Ya logre arregla el select pero ahora creo que tengo un problema con los if me marca error de sintaxis, si ven algo malo avisenme por favor

char usuario, contrasena, tipo_user
int id_user

SELECT "usuarios"."tipo_usr",
"usuarios"."id_usr"
INTO :tipo_user, :id_user
FROM "usuarios"
WHERE (trim("usuarios"."user") = :sle_1.text ) AND
(trim("usuarios"."password") = :sle_2.text );

If SQLCA.SQLCODE = 100 then
MessageBox('Error','Usuario No Válido. Intente Nuevamente')
close(w_login)
Else
MessageBox('Bienvenido','Presione aceptar para continuar')
If tipo_user = 'Admin' then
open(w_bienvenida_casos)
close(w_login)
Else If tipo_user = 'User' then
open(w_bienvenida_casos2)
close(w_login)
Else If tipo_user = 'Cons' then
open(w_bienvenida_casos3)
close(w_login)
End If

End If

Claro los "Else If" van juntos, es decir "ElseIf" ...

Saludos,