Pobieranie danych do arkusza

Witam,

Pobieram dane z bazy za pomocą VBA i chciałbym przypisać je do komórek excella. 

Zrobiłem taką pętle:

If rsDane.RecordCount > 0 Then

    For i = 0 To rsDane.Fields.Count - 1
    
        Range("A"& i + 2).Value = rsDane.Fields(i).Name

    
    Next i

End If

Ta pętla wstawia mi tylko nagłówki kolumn z bazy a nie dane. Czy ktoś może podrzucić jakieś sugestie jak to zmienić?