Is this how it should look?
If blnFound = True Then
Dim strSQL As String
strSQL = "INSERT INTO TimeClock (EmployeeName, ClockIn) values ( Me.txtEmployeename, Me.txtClockInDate )"
DoCmd.RunSQL strSQL
Also, is there any of my original code that is not needed?