Excel VBA вставляє записи з бази даних у правильному порядку

Я намагаюся отримати записи з бази даних і заповнити їх у excel. Ось як я отримую дані та заповнюю їх (зверніть увагу: запит спрощений, я не можу просто ORDER BY DESC):

Sub FillPersons(ByRef connection As ADODB.connection)
    Dim recordSet As ADODB.recordSet
    Set recordSet = New ADODB.recordSet
    Dim sql As String

    sql = "SELECT TOP 2 Id FROM Persons"

    recordSet.activeconnection = connection 
    recordSet.Open sql

    Dim a As Variant

    If Not recordSet.EOF Then
        a = recordSet.GetRows
        a.Reverse (a)
        Sheet1.Cells(10, 2).Resize(UBound(a, 1) + 1, UBound(a, 2) + 1).Value = a
    End If

    'Sheet1.Range("B10").CopyFromRecordset recordSet

    recordSet.Close
    connection .Close
    Set connection = Nothing
End Sub

На жаль, результат виглядає приблизно так:

B10B11
2    1    

замість

B10B11
1    2    

Я намагався повернути назад, aале, на жаль, я не можу змусити його працювати.

Чи є хитрість, щоб отримати правильний результат?

Спасибі заздалегідь

Чому ви хочете сортувати / скасовувати aзамість recordSet?

Використовуйте
recordset.Sort = recordSet.Fields(1).Name & " ASC"

Детальніше: https://msdn.microsoft.com/en-us/library/ms675783(v=vs.85).aspx