Help in adding a data..

Can someone help me with this script..

Private Sub ClockIn_Click()
Dim db As DAO.Database
Dim rs2 As DAO.Recordset

Set db = CurrentDb
Set rs2 = db.OpenRecordset("TimeSheet", dbOpenSnapshot)

rs2.AddNew
rs2!Empvzid = Me.InputT.Value & "'"
rs2!TimeIn = Now()
rs2.Update
rs2.Close

Me.InputT.Value = ""