MS access VBA update creating duplicate entries

Question

I tied this code to a command button in a MSAccess form. The purpose is to insert an update to an existing record and add a date to the TIME OUT field. Whenever I run this c