[VB, SQL] Ricerca per data su Access (Query)

[w_t]

Devo fare una ricerca per data su un campo "Date" di Access:

la data da ricercare la passo con due "DateTimePicker" e poi formattandole con il seguente codice:

1° Metodo:

            Dim DatDa As Date = dtpDa.Value
            Dim DataDa As Date = DatDa.ToShortDateString
            Dim DatA As Date = dtpA.Value
            Dim DataA As Date = DatA.ToShortDateString


            Dim sql2 As String = "SELECT Quantita FROM Movimenti WHERE Data >= #" & DataDa & "# AND Data <= #" & DataA & "#

2° Metodo:

            Dim DatDa As Date = dtpDa.Value
            Dim DataDa As Date = DatDa.ToShortDateString
            Dim DatA As Date = dtpA.Value
            Dim DataA As Date = DatA.ToShortDateString


            Dim sql2 As String = "SELECT Quantita FROM Movimenti WHERE Data  Between #" & DataDa & "# AND  #" & DataA & "#

Con nessuno dei due metodi funziona,

con il primo mi da errore di Query,

con il secondo il risultato e' "0".


Come devo fare per fare una ricerca per data???