[سؤال] شباب هل من الممكن عمل update ل checkBox فى قاعدة البيانات

كود :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    Dim sql As String = _

        "UPDATE [login] " & _

        "SET    [user] =  @user, " & _

        "       [pass] =  @pass, " & _

        "       [add] =   @add, " & _

        "       [cars] =  @cars, " & _

        "       [day] =   @day, " & _

        "       [stor] =  @stor, " & _

        "       [entag] = @entag, " & _

        "       [data] =  @data, " & _

        "       [admin] = @admin " & _

        "WHERE  [loginID] = @loginID "

    Dim cmd As New OleDbCommand(sql, Con)

    cmd.Parameters.AddWithValue("@user", txtuser.Text)

    cmd.Parameters.AddWithValue("@pass", Val(txtpass.Text))

    cmd.Parameters.AddWithValue("@add", add.Checked)

    cmd.Parameters.AddWithValue("@cars", car.Checked)

    cmd.Parameters.AddWithValue("@day", day.Checked)

    cmd.Parameters.AddWithValue("@stor", stor.Checked)

    cmd.Parameters.AddWithValue("@entag", entag.Checked)

    cmd.Parameters.AddWithValue("@data", data.Checked)

    cmd.Parameters.AddWithValue("@admin", adm.Checked)

    cmd.Parameters.AddWithValue("@loginID", Val(txtid.Text))



    If Con.State <> ConnectionState.Open Then Con.Open()

    Dim r As Integer = cmd.ExecuteNonQuery()

    Con.Close()



    cmd.Dispose()



    If r > 0 Then

        MsgBox("تمت ---- التعديل بنجاح", 64 + 524288, "نجاح")

    Else

        MsgBox("فشلت ---- عملية التعديل", 64 + 524288, "فشل")

    End If



End Sub