Excel VBA, как свести два ADODB.Recordset. Вопрос быстродействия.

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

В чем суть, после выполнения двух запросов имеем два Recordset, RS и RS2 по 10 000 строк каждый.
В первой колонке храниться код позиции, во второй присвоенный класс АВС.
Необходимо подсчитать сколько позиций сменили класс АВС и в какую сторону.
Например:

RS![Позиция]="10100" RS![Класс]="А"
RS2![Позиция]="10100" RS2![Класс]="B"
AB=AB+1

Собрал две конструкции.
1. Отрабатывает за 9 минут.

Do While Not RS2.EOF
        RS.MoveFirst
        RS.Find "Позиция='" & RS2![Позиция] & "'"
        If Not RS.BOF And Not RS.EOF Then
            If RS![Класс] = "A" And RS2![Класс] = "A" Then AA = AA + 1
            If RS![Класс] = "A" And RS2![Класс] = "B+" Then AB_pl = AB_pl + 1
            If RS![Класс] = "A" And RS2![Класс] = "B" Then AB = AB + 1
            If RS![Класс] = "A" And RS2![Класс] = "C" Then AC = AC + 1
            If RS![Класс] = "A" And RS2![Класс] = "X" Then AX = AX + 1
        End If
        RS2.MoveNext
    Loop

2. Время отработки неизвестно.

For i = 1 To RS2.RecordCount
        RS.MoveFirst
        For j = 1 To RS.RecordCount
            If RS2![Позиция] = RS![Позиция] Then
                If RS![Класс] = "A" And RS2![Класс] = "A" Then AA = AA + 1
                If RS![Класс] = "A" And RS2![Класс] = "B+" Then AB_pl = AB_pl + 1
                If RS![Класс] = "A" And RS2![Класс] = "B" Then AB = AB + 1
                If RS![Класс] = "A" And RS2![Класс] = "C" Then AC = AC + 1
                If RS![Класс] = "A" And RS2![Класс] = "X" Then AX = AX + 1
                Exit For
            End If
            RS.MoveNext
        Next j
        RS2.MoveNext
    Next i

Каким способом ускорить выполнение данной задачи?

Решение задачи: «Excel VBA, как свести два ADODB.Recordset. Вопрос быстродействия.»

textual
                            Листинг программы 
                        

                            RS.Open "SELECT Позиция, (Позиция) AS Класс, (SUM(Кол_во_Транзакций)) AS Сумма_Транзакций " & _
                  "FROM [" & Имя_Листа & "$] " & _
                  "WHERE (Зона IN (" & Скл_Подразделения & ") AND " & _
                  "Дата IN (" & Период_Даты1 & Период_Даты2 & Период_Даты3 & Период_Даты4 & Период_Даты5 & Период_Даты6 & "))" & _
                  "GROUP BY Позиция " & _
                  "ORDER BY 3 DESC", _
                  CN, adOpenStatic, adLockBatchOptimistic

                        