Espera... tengo entendido que según la cadena de conexión declaras el usuario. Ejm...
Cita: Disconnect Using SQLCA;
SQLCA.DBMS = "OLE DB"
SQLCA.LogPass ="USER123"
SQLCA.LogId = "USER_CONEX"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PROVIDERSTRING='database=DBBASENAME',PROVIDER='SQ LOLEDB',DATASOURCE='ROLL\SQL2008'"
Connect Using SQLCA;
En todo caso mira la cadena de conexión... o captura el SPID del SQL de la conexión vigente...
Esto es lo que quieres?