Spaltenüberschriften bei Access-Import

Hier der Code:

Sub ReturnRecords()

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim iCols As Variant

Set DB = DAO.OpenDatabase("p:\Access\Krank.MDB")
Set RS = DB.OpenRecordset("Zeit")

For iCols = 0 To RS.Fields.Count - 1
Worksheets(1).Cells(1, iCols + 1).Value = RS.Fields(icols).name
Next

With Worksheets(3)
.Range(Worksheets(3).Cells(1, 1), Worksheets(3).Cells(1, RS.Fields.Count)).Font.Bold = True
End With
Worksheets(3).Range("A2").CopyFromRecordset RS
End Sub

Habe es auch mit RS.Fields(icols).Properties.name
und anderen variationen probiert, alles Code-Schnipsel aus dem Archiv, aber ich bekomme immer nur die Werte ohne die Überschriften.
Weiss jemand Rat?

Vielen Dank
Gruss, Leo