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