Dim cmd As New OleDbCommand("update empinfo set extit_rentry=" & CType(CheckBox1.Checked, Boolean) & " where Emp_No = '" & TextBox1.Text & "'", Con)