Felttype for recordset

Jeg er ved at lave en funktion der eksporterer til Excel ved at åbne et DAO.recordset og kopiere dette ind i et nyt excelark.
Mine brugere skal imidlertid kunne arbejde videre med data herfra og det er derfor nødvendigt, at f.eks. datoer har formatet datoer.
Spørgsmålet lyder derfor om det er muligt at identificere felttypen for hvert felt i et recordset?
Min kode er til orientering:

Public Sub CreateExcel(strSheetName As String, ByVal strRS As String)

Dim RS As DAO.Recordset
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlChart As Excel.Chart
Dim i As Integer

Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Add

xlApp.DisplayAlerts = False
For i = xlBook.Worksheets.Count To 2 Step -1
    xlBook.Worksheets(i).Delete
Next i
xlApp.DisplayAlerts = True

Set xlSheet = xlBook.ActiveSheet

strSheetName = Left(strSheetName, 30)
xlSheet.Name = strSheetName

Set RS = CurrentDb.OpenRecordset(strRS, dbOpenSnapshot)

xlSheet.Range("A2").CopyFromRecordset RS

For i = 0 To RS.Fields.Count - 1

    With xlSheet
        With .Cells(1, i + 1)
                .Value = RS.Fields(i).Name
                .Font.Bold = True
               
        End With
'Her kommer det sted hvor jeg ønsker at formattere kolonnen alt afhængig af felttype i RS
        .Columns(i + 1).AutoFit
    End With
Next i

Set RS = Nothing
xlApp.Visible = True
End Sub