Подключение к ADO - VBA

Формулировка задачи:

не могу разобраться: если у меня в папке 100 файлов, в которых базы данных, мне их все поштучно нужно подключать через ADO? Или можно как-то указать просто папку, где они лежат? Если сделать один файл с БД в листах, я смогу до них добраться через ADO? В этом случае обязательно ли они должны быть именованными диапазонами?

Решение задачи: «Подключение к ADO»

textual
                            Листинг программы 
                        
                                  TBeg=Time
 
      homeDir=Wscript.ScriptFullName 
 
      k=Instrrev(homeDir,"\")
 
      homeDir=left(homeDir,(k-1))
 
      Set Conn = CreateObject("ADODB.Connection")
      Set RS = CreateObject("ADODB.Recordset")
 
      DSNName = "DRIVER=Microsoft dBase Driver (*.dbf);DBQ="
 
      DSNName = DSNName & HomeDir 
 
      Conn.Open DSNName
 
      SQL="create table Testtable (N1 Float, N2 Float)"  '::: Создается файл testtable.dbf с двумя полями N1 и N2
      RS.Open sql,Conn,3,3
      
      For i=1 to 5000
 
          SQL="insert into testtable values (" & cstr(i) & "," & Cstr(2*i-1) & ")"
          RS.Open sql,Conn,3,3
      
      Next
 
      TMid=Time 
 
      For ii=1 to 10
 
          SQL="Select sum(N1),sum(N2) from Testtable"
          RS.Open sql,Conn,3,3
 
          SS1=RS(0)      
          SS2=RS(1)
        
          RS.Close
 
      Next
 
      Msg="TBeg=" & Cstr(TBeg) & chr(10) & _
          "TMid=" & Cstr(TMid) & chr(10) & _
          "S1=" & Cstr(SS1) & chr(10) & _
          "S2=" & Cstr(SS2) & chr(10) & _
          "TEnd=" & Cstr(Time)
 
      MsgBox Msg