Неверно работает Прямой запрос к MS SQL с ADODB

/////////////////////////////////////////
    //Подключение к SQL-серверу
    Попытка
        Соединение  = Новый COMОбъект("ADODB.Connection");
        Команда     = Новый COMОбъект("ADODB.Command");
        Выборка     = Новый COMОбъект("ADODB.RecordSet");
		        Соединение.ConnectionString =
            "driver={SQL Server};" +
            "server="+ИмяСервераSQL+";"+
            "uid="+ПользовательSQL+";"+
            "pwd="+ПарольSQL+";"+
            "database="+БазаДанныхSQL+";";
        Соединение.ConnectionTimeout = 30;
        Соединение.CommandTimeout = 1200;
        //Открытие соединение
        Соединение.Open();
        Команда.ActiveConnection   = Соединение;
        Сообщить ("Успешное подключение!");
    Исключение
        Сообщить(ОписаниеОшибки());
        
	КонецПопытки;
	
	ТекДата = ТекущаяДата();
	
	
	///////////////////////////////////////
    //Читаем записи
    ТекстИнструкции = "SEL ECT agents.Name as agentName, location.MobAgentID as agentID, location.Date, location.Latitude as latitude, location.Longitude as longitude
	   				  |Fr om
					  |(	Sel ect dbo.MobAgent.Name, temp1.MobAgentID 
					  |	fr om dbo.MobAgent LEFT JOIN (SEL ECT DISTINCT MobAgentID FR OM dbo.Location) AS temp1 ON dbo.MobAgent.Id = temp1.MobAgentID
					  |) AS agents
					  |
					  |inner JOIN
					  |(
					  |Select MAX(location.Date) as adate, location.MobAgentID as MobAgentID fr om dbo.Location as location  wh ere location.Date between DATEadd(DAY,-1, GETDATE()) and '"+Формат(КонецДня(ТекДата), "ДФ=dd/MM/yyyy")+" "+Формат(КонецДня(ТекДата), "ДЛФ=T") +"' group by location.MobAgentID) MaxDates  on agents.MobAgentID = maxDates.MobAgentID inner JOIN
					  |(select * fr om dbo.Location as location wh ere location.Date between DATEadd(DAY,-1, GETDATE()) and '" +Формат(КонецДня(ТекДата), "ДФ=dd/MM/yyyy")+" "+Формат(КонецДня(ТекДата), "ДЛФ=T") + "') location on maxDates.adate = location.Date and maxDates.MobAgentID = location.MobAgentID";
					  	
	
		
	Попытка
		Команда.CommandText = ТекстИнструкции;
		Выборка = Команда.Execute();

		Если Выборка.BOF = Ложь Тогда
	    	Выборка.MoveFirst();
	    	Пока Выборка.EOF = Ложь Цикл

				НовСтр=ТаблТекущиеКоординаты.Добавить();
				НовСтр.ДатаВремя = Дата(Выборка.Fields("date").Value);
				НовСтр.Долгота = Число(Выборка.Fields("longitude").Value);
				НовСтр.Широта = Число(Выборка.Fields("latitude").Value);				
				НовСтр.Агент = Строка((Выборка.Fields("agentName").Value));
				НовСтр.Источник = "CP";
				НовСтр.Скорость = 10;
				Сообщить(НовСтр.Долгота + " " + НовСтр.Широта);
				
		        Выборка.MoveNext();
		    КонецЦикла;
		КонецЕсли;
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;

	/////////////////////////////////////////
    //Закрытие соединения
    Попытка
        Соединение.Close();
        Сообщить("Соединение закрыто!");
    Исключение
        Сообщить(ОписаниеОшибки());
	КонецПопытки;