Datagrid в Excel

Sub Получить_Данные()
Dim Conn As Object
Dim Rs     As Object
Dim Sh   As Worksheet
 
      Set Sh = ThisWorkbook.Sheets(1)
      Sh.Select
      Cells.Select
      Selection.ClearContents
      Range("A1").Select
 
      HomeDir$ = ThisWorkbook.Path
 
      '::: Этап 1 - Создаем ADO-соединение и пустой набор записей
 
      Set Conn = CreateObject("ADODB.Connection")
      Set Rs = CreateObject("ADODB.Recordset")
 
      DSNName$ = "DRIVER=Microsoft dBase Driver (*.dbf);DBQ="  '<- задай драйвер DBF, Access и т.п.
      DSNName$ = DSNName$ & HomeDir$
 
      '::: Этап 2 - Открываем соединение
 
      Conn.Open DSNName$
       
      '::: Этап 3 - готовим SQL-оператор
 
      Sql = "........"
 
      '::: Этап 4 - выполняем его
 
      Rs.Open Sql, Conn, 3, 3
 
      '::: Этап 5 - отобразим результат на листе.
 
      pp% = 1
 
      Do While Not Rs.EOF
 
          cc$ = Rs(0)
          rg$ = Rs(1)
          Nm$ = Rs(2)
 
          Cells(pp%, 1).Value = cc$
          Cells(pp%, 2).Value = rg$
          Cells(pp%, 3).Value = Nm$
          
          pp% = pp% + 1
          
          Rs.MoveNext
 
      Loop
 
      '::: Все закрываем
 
      Rs.Close
 
      Conn.Close
 
End Sub