Там нет «черной магии вуду» - либо вы можете ускорить ваш запрос (вернуть меньше данных, улучшить дизайн базы данных, найти и применить индексы, которые ускоряют выполнение ваших запросов), либо увеличить время ожидания, которое вы разрешаете запрос, выполняемый до истечения времени ожидания.
Это ваши два варианта - сделайте свой выбор.
ОБНОВЛЕНИЕ: небольшой поиск в Google показывает:
Dim cmd
Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandTimeout = 120 ' number of seconds
Марк