Format aendert sich ungewollt

Sub Reimport_from_SPList_Today()
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim mySQL As String, strUserName As String, strToday As String
Dim lngLastR As Long, lngLastC As Long, c As Long
strToday = Format(CDate(Date), "dd/mm/yyyy")
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("RAW DATA")
lngLastR = ws.Cells(Rows.Count, 2).End(xlUp).Row
lngLastC = ws.Cells(2, Columns.Count).End(xlToLeft).Column
If lngLastR > 2 Then ws.Range(ws.Cells(2, 1), ws.Cells(lngLastR, lngLastC)).Delete
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
mySQL = "SELECT * FROM [_vti_bin] WHERE [Title] = '" & strToday & "' AND [Associate] = '" &  _
UserName & "';"
With cnt
.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE= _
https://avantorsciences.sharepoint.com/teams/MUSQMSDOCS;LIST={90B006A7-BC92-49CB-9E8D-1FE6B873E99F};"
.Open
End With
rst.Open mySQL, cnt, adOpenForwardOnly, adLockReadOnly
If Not (rst.BOF And rst.EOF) Then
ws.Cells(2, 1).CopyFromRecordset rst
End If
If CBool(rst.State And adStateOpen) = True Then rst.Close
Set rst = Nothing
If CBool(cnt.State And adStateOpen) = True Then cnt.Close
Set cnt = Nothing
End Sub

ws.Cells(2, 1).CopyFromRecordset rst