[VB6]Query con data

[Stefanik]

Ciao.
Apro un recordset con la clausola impostata sulla data, ma non mi funziona:

CnFatt.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=InfoManager.mdb;"
CnFatt.CursorLocation = adUseClient
qFatt = "SELECT SUM(Totale)AS SOMMATOT, SUM(Imposta)AS SOMMAIMPOSTA, SUM(Imponibile)AS SOMMAIMPONIBILE  FROM FatturaTestata WHERE Data =" & Date
RsFatt.Open qFatt, CnFatt, adOpenDynamic, adLockOptimistic
ValoreTotFatt = RsFatt!SOMMATOT
ValoreImpostaFatt = RsFatt!SOMMAIMPOSTA
ValoreImponibFatt = RsFatt!SOMMAIMPONIBILE

If optPeriodo(0).Value = True Then
    lblValImponibileFatt.Caption = ValoreImponibFatt
    lblValImpostaFatt.Caption = ValoreImpostaFatt
    lblValTotFatture.Caption = ValoreTotFatt
End If
    
End Sub

Avete idea di perchè?
C'è qualche imprecisione di formato?
Ciò che mi restituisce è un valore NULL sulle variabili "ValoreImponibFatt, ValoreImpostaFatt, ValoreTotFatt".

Grazie.

[Stefanik]

Il # !!!!!!!!!!!

Trovato!

[Stefanik]

Ora ho un altro problema sempre con le date.
Le date ora sono in un certo arco di tempo:

qFatt = "SELECT SUM(Totale)AS SOMMATOTFATT, SUM(Imposta)AS SOMMAIMPOSTAFATT, SUM(Imponibile)AS SOMMAIMPONIBILEFATT  FROM FatturaTestata WHERE Data BETWEEN #" & DTDal.Value & "# AND #" & DTAl.Value
    RsFatt.Open qFatt, CnFatt, adOpenDynamic, adLockOptimistic
    ValoreTotFatt = RsFatt!SOMMATOTFATT
    ValoreImpostaFatt = RsFatt!SOMMAIMPOSTAFATT
    ValoreImponibFatt = RsFatt!SOMMAIMPONIBILEFATT
    
    lblValImponibileFatt.Caption = ValoreImponibFatt
    lblValImpostaFatt.Caption = ValoreImpostaFatt
    lblValTotFatture.Caption = ValoreTotFatt

Mi da un errore nella query!?!?