Power Builder - no puedo conectarme en la 3ra ves

ahi va esto me esta matando en la tercera vez que ingraso un usario y pass erroneo me sale sqlcode -1 por que pasa eso en la 3ra ves que intento conectarme

///*eme*/
sqlca = create uo_trans

SetPointer(HourGlass!)

double sqlcacode

//if NOT vg_conectado then

is_nomruta = wf_obtiene_ruta()
SQLCA.DBMS = ProfileString(is_nomruta,'SQLCA_PAL','DBMS',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.LogId = ProfileString(is_nomruta,'SQLCA_PAL','LogID',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.LogPass = ProfileString(is_nomruta,'SQLCA_PAL','LogPass',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.ServerName = ProfileString(is_nomruta,'SQLCA_PAL','ServerName',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
SQLCA.Database = ProfileString(is_nomruta,'SQLCA_PAL','Database',"")
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)
CONNECT;
sqlcacode = SQLCA.SQLCODE
messagebox('sqlca',sqlcacode)

IF SQLCA.SQLCODE <> 0 THEN
messagebox('SQLCA',"Falló la conexión a la base de datos del sistema. Reintente " +&
"más tarde", StopSign!)
Halt
else
vg_conectado = TRUE
end if
///* Construimos nombre de usuario */
//vg_usuario = f_nombrecompleto (vg_apellidopaterno, vg_apellidomaterno, vg_nombres)
//
//DESTROY vl_encriptador
//DESTROY vl_cryptoAPI
//
///* Registramos información del usuario */
////f_clientinfo (Lower (vg_nombrecortosistema + "_" + vg_login), SQLCA)
//

//Close (w_conexion)
//

/*eme*/

DataStore Ds
long count
Ds = Create DataStore
Ds.dataObject = "d_usuario_mantenimiento"
Ds.setTransObject(SQLCA)
Ds.retrieve()
count = Ds.rowcount()
messagebox("count",count)
Integer Found
Found = Ds.find("IdUsuario ='" + Trim(sle_codigo.text) + "'",1,Ds.rowcount())
//messagebox("x",found)
If Found > 0 Then
If Trim(Sle_Clave.Text) = Ds.object.clave[Found] Then
gs_usuario = sle_codigo.text
Open(w_main)
f_opcionesusuario(Trim(sle_codigo.text))
Destroy(Ds)
Close (Parent)
Else
MessageBox ("Error","La clave es incorrecta. Intente de nuevo",exclamation!)
End If
Else
MessageBox ("Error","No se ha encontrado el usuario",exclamation!)
End If
Destroy(Ds)

Al salir de tu aplicacion estas verificando que estas destruyendo todos los objetos creados y desconectandote de la BD.

Verifica esto y nos comentas.

Suerte !

me respondere.
no se si era la solucion pero funciono.
no tenia instalado el parche del power 9
lo que pasaba es que yo ponia un usuario y pass incorrectos y no me edejaba entrar eso estaba bien pero en la tercera ves que hacia esto la coneccion se perdia
bueno luego de instalar este parche dejo de pasar esto.

Saludos.

Emerson Madrid.
:)