Copyfromrecordset - Dates Pasted As Values

If I use the code below to retrieve a recordset from SQL Server and the drop it into the activeworkbook, using CopyFromRecordset and a sheet where I have just deleted all the columns - thus leaving a default sheet (I think)....everything works fine

'Drop in field name and data
counter = 1
For Each fld In SQLRS.Fields
Sheet1.Cells(1, counter) = fld.Name
counter = counter + 1
Next

Sheet1.Range("A2").CopyFromRecordset SQLRS

However, if I change it to paste into a brand new work book as in the code below....all the dates are pasted in as Integers...

'Create new book and sheet
Set NewBook = Application.Workbooks.Add
Set NewSheet = NewBook.Worksheets.Add
NewSheet.Name = "Sanofi Renewals"

I've used this same process previously and not had any problems what so ever when dates where pasted....