[RESOLVED] syntax error missing in query expression

[Doogle]

In your picture in Post #38 where did you get the & ")" from at the end of the Where clause?
try this:

CN.Execute ("UPDATE Expenses SET " & _
                "ExpDate= #" & MyDate(PickDate.Value) & "#, " & _
                "ExpType= '" & RplS(txt(1).Text) & "', " & _
                "ExpQuantity= " & Replace$(txt(2).Text, ",", ".") & ", " & _
                "ExpCost= " & CCur(Mid$(txt(3).Text, 2)) & _
                " WHERE ExpID= " & .Tag)

there was an '&' missing in my earlier post.