Ayuda en la Conexion entre Power Builder y Sql server Mediante Roles de Aplicacion

[Kuking Ñahui Panllo]

Disculpen las Molestias pero quisiera saber si alguien ha desarrollado alguna vez una conexion entre Power Builder y Sql Server utilizando Roles de Aplicacion, he estado intentando ejecutar esta accion de la siguiente manera:

STRING ls_seccion, ls_archivo, ls_para_ado, ls_path, str2

ls_archivo = "cnn.ini"

ls_seccion = "SGICEI"

SQLCA.DBMS = "ADO.Net"

SQLCA.AutoCommit = True

SQLCA.DBParm = "Namespace='System.Data.SqlClient',TrustedConnection=1,DataSource='ING-BD-DES',Database='SGI_CEI'"

CONNECT USING SQLCA;

gt_sgi = create transaction

gt_sgi.DBMS = ProfileString(ls_archivo,ls_seccion,"DBMS", "")

gt_sgi.Database = ProfileString(ls_archivo,ls_seccion,"DataBase", "")

gt_sgi.ServerName = ProfileString(ls_archivo,ls_seccion,"ServerName", "")

gt_sgi.AutoCommit = TRUE

gt_sgi.Lock = ProfileString(ls_archivo,ls_seccion,"Lock", "")

ls_para_ado = ProfileString(ls_archivo,ls_seccion,"Namespace", "") 

gt_sgi.DBParm = "Namespace='"+ls_para_ado+"',TrustedConnection=1,"+"DataSource='"+gt_sgi.ServerName+"',Database='"+gt_sgi.Database+"'"

CONNECT USING gt_sgi; 

IF sqlca.sqlcode = -1 and gt_sgi.sqlcode = -1 then

Messagebox("SGIC - Error de Conexión !!", string(Sqlca.SqlErrText),exclamation!)

Halt

ELSE

str2 = "sp_setapprole 'ROL_ACCESO_SIA', '987G^bv876sPY)Y5m23';"

EXECUTE IMMEDIATE :str2 USING gt_sgi ;

MessageBox("Connect Error", SQLCA.SQLErrText,Exclamation!)              //MessageBox N° 2

ls_path = getcurrentdirectory()

gs_path_apli =ls_path 

gs_path_ima = ls_path + '\IMAGENES\'

gs_codiUniOrga = 'UO1'

select nombreUniOrga into :gs_nombreUniOrga from TUnidadOrganizacional where codiUniOrga = :gs_codiUniOrga; 

MessageBox("Connect Error", SQLCA.SQLErrText,Exclamation!)               //MessageBox N° 3 

END IF

al realizar esta conexion en el MessageBox N° 2 me indica que se realizo la ejecucion del rol de aplicacion pero cuando realizo el select el MessageBox N° 3 me indica que no tengo permisos para realizar select pero yo le he asignado a esa tabla permisos de select, update entre otros mediante el rol de aplicacion.

Espero me puedan ayudar con este incoveniente y de antemano Gracias.