Requête SQL avec filtre d'une seule Date

Bonjour

Je développe une petite application dans le VB6 avec Acces. Je tente d'avoir la somme d'une colonne grâce à la requête SQL.

dans la première requête l'application me renvoie la somme.

SQLs = "select sum(KgsNetsOuvrier) from TableRepartition where ((Dossier ='" & CStr(VDoss) & "') and (Produit='" & CStr(CmbProduit) & "'))"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

LblKgsNetsProduit = Format(RS.Fields(0), "#,##0.00")

RS.Close

dans la deuxième requête, que je veux plus précise en filtrant par date, l'application ne me renvoie rien,
Merci pour votre aide.

SQLs = "select sum(KgsNetsOuvrier) from TableRepartition where ((Dossier ='" & CStr(VDoss) & "') and (DateRecolte =#" & Format(DTP.Value, "YYYY/MM/DD") & "#) and (Produit='" & CStr(CmbProduit) & "'))"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

LblKgsNetsProduit = Format(RS.Fields(0), "#,##0.00")

RS.Close