strSQL = "insert into rates ([customer], [ratecode], [saturdaystart], [fridayend], [rate]) values (""" & [findcust] & """, 'L', " & [LastSaturday] & ", " & [LastFriday] & ", " & Me.RateperHour & ")"
CurrentDb.Execute strSQL, dbFailOnError
On debugging, I see that value of [LastFriday] is...