Strange problem with Dates in Access

[HanneSThEGreaT]

Hi

try this and tell me...!

 
dtPurchase = lstPurchaseDate.List(lCounter)
dtWarranty = CDate(DateAdd("yyyy", 3, dtPurchase))
sUpdateSQL = "Update tblDate Set WarrantyExpirationDate = #" & Format(dtWarranty,"dd-MMM-yyyy") & "# Where PurchaseDate = #" & Format(dtPurchase,"dd-MMM-yyyy") & "#"

Try to use Month as MMM in your Access Data Types or where-ever you used.. so that the Month-Day confliction may not be exist in your query.

Regards@

That is brilliant Rahul!
As I've suspected, some dates were stored in the wrong format!