if s = 'DBSQLDIALECT' then
      Result := DB.DBSQLDialect
    else if (s = 'ROWSAFFECTED') or (s = ibescROW_COUNT) or (s = ibescROWS_AFFECTED) then
      Result := AConnection.LastRowsAffected
    else if s = 'CLIENTLIB' then
      Result := DB.ClientLibName
    else if (s = 'SERVERNAME') or (s = 'HOSTNAME') then
      Result := DB.DBSiteName
    else if s = 'FILENAME' then
      Result := DB.DBFileName
    else if s = 'DBNAME' then
      Result := DB.DBName
    else if s = 'PASSWORD' then
      Result := DB.DBParams.Values['password']
    else if (s = 'USERNAME') or (s = 'USER_NAME') or (s = 'USER') then
      Result := DB.DBParams.Values['user_name']
    else if (s = 'NAMES') or (s = 'LC_CTYPE') then
      Result := DB.DBParams.Values['lc_ctype']
    else if (s = 'SERVERVERSION') then
      Result := DB.Version
    else if (s = 'PAGESIZE') or (s = 'PAGE_SIZE') then
      Result := DB.PageSize
    else if (s = 'SWEEP') or (s = 'SWEEPINTERVAL') then
      Result := DB.SweepInterval
    else if (s = 'ODSMINORVERSION') then
      Result := DB.ODSMinorVersion
    else if (s = 'ODSMAJORVERSION') then
      Result := DB.ODSMajorVersion
    else if (s = 'TRPARAMS') then
      Result := StringReplaceEx(AConnection.TRParams, ibescCRLF, ',', [rfReplaceAll])