Установить cnSQL = Новый ADODB.Connection 'cnSQL.Open "ODBC; DRIVER = SQL Server; Аутентификация = ActiveDirectoryInteractive; База данных = XXXXX; Источник данных = XXXX.database.windows.net"