Dovresti provare a fare così, deve funzionare
codice:
Dim sSql2 As String

sSql2 = "SELECT Quantita FROM Movimenti WHERE Data Between #" & dtpDa.Value & "# AND  #" & dtpA.Value & "#"
ToShortDateString :master: Perchè usi questo? Io ti consiglio di non usarlo! Secondo sta proprio li l'errore!