Coffee break, recordset

Ciekawy fragment kodu do zrzucenia danych z recordsetu do excela.

R = 0
If Not (Rs.BOF And Rs.EOF) Then
   Rs.MoveFirst
   While Rs.EOF <> True
      Range("A1").Offset(R, 0).Value = Rs.Fields(0)
      Range("B1").Offset(R, 0).Value = Rs.Fields(1)
      Range("C1").Offset(R, 0).Value = Rs.Fields(2)
      Range("D1").Offset(R, 0).Value = Rs.Fields(3)
      Rs.MoveNext
      R = R + 1
   Wend 

Zadanie na kiedyś... - przerobić, by kod wiedział ile kolumn trzeba stworzyć (Rs.Fields.Count?) - przerobić, by kod wklejał do ListObject.Table raczej niż do komórek. - przerobić, by kod zwracał nagłówki do ListObject. - przerobić, by kod czyścił Listobject.Table jeśli już istnieje.