MS Access VBA, Trying to update one table and delete from another

Question

I am using MS Access VBA and trying to:

• update row of one table base on my SQL query and
• delete row from another table.

My VBA code: