Public Function logoutpage(ByVal iEmpID As Integer) As Integer
Try
Dim sSql As String = ""
sSql = " UPDATE employee.tblcheck SET " &
" OutTime='" & DateTime.Now.ToString("hh:mm:ss") & "'"
& " WHERE employee.tblcheck.EmployeeId = " & iEmpID.ToString
Dim ireturn As Integer = execute(sSql)
Catch ex As Exception
End Try
End Function
You'll need to substitute your actual employee id field in the WHERE clause.