нет не пробывал а как?

извините.  
подскажите как не в таблицу писать ответ от базы  
а как сразу в Массив    
 
a(i,j)=rs.fields(j)  
 
и все это в цикле ? поправте

Do Until rs.EOF  
       For j = 0 To rs.Fields.Count - 1  
           Cells(r, j + 10) = rs.Fields(j)  
       Next j  
       rs.MoveNext  
       r = r + 1  
   Loop  
 
можно и так, но как это к массиву без опыта сложно! (  
спасибо.

modRunQuery  
после вывода заголовка он спускается на одну строку  
и вставляет уже все что получил сразу в тело листа с заданной ячейки    
 
ResultRange.Offset(1, 0).CopyFromRecordset Rs  
 
как заменить эту операцию на присвоение например все что в запрос набежало  
сначала создать массив исходя из кол-ва столбцов  
потом в этот же массив и передать через цикл все значения    
 
че делать то понятно я просто синтаксис не улавливаю  
<EM><STRONG>Файл удален</STRONG> - велик размер - 1,6М!!! [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

спасибо.очень конструктивно.

и ещё в доп.  
массив раскидать по листу  
в заданные поля.  
там если (1,0) = ("10450", "Василиса Ивановна")  
 
то в таблицу A2 = ФИО B2 = "Василиса Ивановна")  
ну или в присвоенные Именные ячейки вставлять значения.

SQL-запрос к внешим БД из Excel вот это решение работает на отлично. http://www.planetaexcel.ru/forum.php?thread_id=16591 но нужно изменить условия чтобы ответ возвращался в массив *(ключ-значение) и сделать два запроса первый вытаскивает первое значение из базы sql там одно значение второй использует ответ от первого запроса и уже к другой таблице вытаскивает там 12-20 полей значений. и ещё в приведенном примере выше при вытаскивании числа формата НАПРИМЕР "10500" ПРИСВАИВАЕТСЯ тип ДД.ММ.ГГ чч:мм:сс а нужно чтобы остался числом. мозг сломал уже.