Выборка данных из диапазона или листа в Excel (VBA) с помощью ADODB.RecordSet

'Создание подключения к таблице Excel

    Dim cnnExcel As New ADODB.Connection

    cnnExcel.ConnectionString = "Provider=MSDASQL.1; Data Source=ExcelESK"

    cnnExcel.Open

    'Открываем набор данных (где ESK это диапазон ячеек)

    Dim rstESK As New ADODB.Recordset

    rstESK.Open "ESK", cnnExcel

    'Находим число записей в наборе

    rstESK.MoveFirst

    introwsESK = 0

    Do While Not rstESK.EOF

        introwsESK = introwsESK + 1

        rstESK.MoveNext

    Loop

    rstESK.MoveFirst

    'Получаем массив записей
    arrayRowsESK = rstESK.GetRows(introwsESK)

    rstESK.Close
    cnnExcel.Close

'Запрашиваем данные из базы
        rstOrgProduct.Open "SELECT [field1], [field2], [field3], [field4]  " _

        & "FROM " + rstESK + "" _

        & "where field1 = '" + CStr(arrayRows(3, intLoopRow)) + "' " _

        & "and field2 = '" + CStr(arrayRows(1, intLoopRow)) + "' " _

        & "and field3 = '" + CStr(arrayRows(12, intLoopRow)) + "' " _

        & "ORDER BY field4", cnnExcel

strSQL = "SELECT [field1], [field2], [field3], [field4] FROM [1207_old$] " _

    & "GROUP BY [field1], [field2], [field3] " _

    & "ORDER BY [field1], [field2]"

    rstMain.Open strSQL, cnnExcel

Dim Conn As ADODB.Connection, rs As ADODB.Recordset

    Dim ConnectionString As String

    Set Conn = CreateObject("ADODB.Connection")

    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1207_old.xls;Mode=Share Deny None;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";Persist Security Info=False;"

    Conn.CursorLocation = adUseClient

    Conn.Open ConnectionString

    Set rs = Conn.Execute("SELECT [field1], [field2], [field3], [field4] FROM [1207_old$] " _

    & "GROUP BY [field1], [field2], [field3] " _

    & "ORDER BY [field1], [field2]")