Запрос к базе SQL через ADODB. Нехватает памяти

	SQL = Новый COMОбъект("ADODB.Connection");
	ServerName = "TEST1C\TEST1C"; //имя или IP-адрес сервера
	DSN = "Central"; //имя базы данных
	UID = "sa"; //логин пользователя SQL-сервера
	PWD = "as"; //пароль пользователя SQL-сервера
	ConnectString = "Provider=SQLOLEDB;" + "Data Source=" +ServerName + "; Initial Catalog=" + DSN + ";	User ID=" + UID + ";Password=" + PWD;
	SQL.ConnectionString = ConnectString;
	SQL.ConnectionTimeOut = 15;
	SQL.CommandTimeout = 30;
	//Подключаемся к базе данных
	Попытка
		SQL.Open();	
        Сообщить("MS SQL база подключена!!!");
    Исключение
        Сообщить("Не могу подключиться к базе!!!");
    КонецПопытки;

	Попытка
		Стр = "SEL ECT [stgr_ID] ,[stgr_Name]  FR OM [Central].[dbo].[StoreG]";

		Rec = SQL.Execute(Стр);
		Сообщить("Запрос выполнен");
	Исключение
		Сообщить("Невозможно выполнить запрос");
	КонецПопытки;
	
	i = 0;
	Пока Rec.EOF <> 1 Цикл
		Сообщить("i="+i+" : "+Строка(Rec.Fields(1).Value));
		Стр = Объект.ГруппаСкладовФирма.Добавить();
		Стр.ГруппаСкладов = Строка(Rec.Fields(1).Value);

		Rec.MoveNext(); //к следующей записи		
	КонецЦикла;