[Wizard_imported]

чё ж так сложно-то?
со времен двушки пользуемся..

для формы главного меню:
DataCaptionExpr = "ConnectionInfo"

ConnectionInfo() : Text[50]
 Sesion.SETRANGE("My Session", TRUE);
 Sesion.FIND('-');
 EXIT (Sesion."Database Name" + ' ('+FORMAT(Session."Connection ID")+'), ' + COMPANYNAME);