Как бы мне увеличить время ожидания?
1с выкидывает именно по истечении этих тридцати секунд.
Менял Connect TimeOut в строке соединения - ноль эмоций. (ПОхоже, он вообще на этот параметр не реагирует, хоть бы и в сторону уменьшения.)

СтрокаСоединения    = "Provider=SQLOLEDB.1;
   |Connect TimeOut =420 ;
   |User ID="+сЛогин+";
   |Pwd="+сПароль+";
   |Data Source=" + сИмяКомпьютера + ";
   |Initial Catalog=" + сИмяБазы + "";


Запрос выполняется больше 30 секунд однозначно. Такова жизнь. (Да и что такое 30 секунд...)

(0) не оно? http://msdn.microsoft.com/en-us/library/ms678265(v=VS.85).aspx

В первый раз вижу, чтобы таймаут в строке соединения задавался.
У ADODB.Connection, например, свойство такое есть.

Свойства и методы объекта Command:

Set objComm = CreateObject("ADODB.Command")

CommandTimeout Устанавливает или возвращает число секунд ожидания выполнения команды. Значение по умолчанию - 30. Чтение и запись. Используйте это свойство, если возникают проблемы из-за плотного сетевого трафика или загруженности сервера. Если время, указанное в CommandTimeout, истекает до завершения выполнения команды, происходит ошибка, и ADO отменяет команду. Если Вы установите свойство в ноль, ADO будет ждать бесконечно, пока команда не будет выполнена. Удостоверьтесь, что используемый провайдер поддерживает свойство CommandTimeout. Установка CommandTimeout объекта Connection никак не связана с установкой свойства CommandTimeout объекта Command.

(2) Это время ожидания соединения с базой данных. По умолчанию 15 секунд.

el-gamberro , спасибо большое. И все остальным откликнувшимся. Но я уже нарыл у какого-то такого же горемыки... ПОчувствовал разницу, заработало...