Nella query dovresti includere anche il campo Data:
codice:
.RecordSource = "select data, Format(data,'dd/mm/yyyy'), prodotto, quantità, isf, medico from SCARICO order by Data, Medico"