Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles btnSave.Click
Dim MyConnection As SqlConnection
Dim strUpdate As String
Dim cmd As SqlCommand
MyConnection = New SqlConnection("server=mkzsa007;database=SecVendorBadge;uid=SecVendorBadge;pwd=$ecVendor%^&99"
strUpdate = "UPDATE FormTable SET Status=@Status WHERE IC=@IC"