Query = "SELECT *, DateSerial(Mid(Data, 7, 4), Mid(Data, 4, 2), Mid(Data, 1, 2)) AS Data2 
FROM " & NomeTabella & " 
WHERE DateSerial(Mid(Data, 7, 4), Mid(Data, 4, 2), Mid(Data, 1, 2)) Between #" & DaData & "# And #" & AData & "#"