Update table fields to specific date (1 Viewer)

I cant get it to work in VBA. Runtime error 3219 appears, invalid operation.
Just cant figure it out how to write date to table, it should be

I've never heard of opening a recordset using action sql or query. Would not think it possible.
You have to open the rs and perform the .Edit .Update methods on it (not update as in sql).
It's a common topic you can research if you want to learn the methods, but not worth the effort for this. You probably should be either running a stored query or executing the sql in code. For that you can use .Execute method of the CurrentDb object or use DoCmd.RunSql. I prefer to use the former.

Was late I didnt know what i was doing
Thanks