------------------------------------------------------------
Code:
Case "OUT"
Dim connectionstring As String = "Server=PENW3GFSB2S\SQLEXPRESS;Database=People;Trusted_Connection = yes"
Dim query As String = "Update [Names] Set [TimeOut]=