Asp.NET Update sorunu

arkadaşlar veritabanındaki bir veriyi querystring ile datareader kullanarak kontrollere ekliyorum kontroldeki bilgiyi değiştirip update etmek istiyorum ama güncelleme yapmıyor.Querystring değerini label2 ye atadım.Kodlar aşağıda hata da vermiyor.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
Label2.Text = Request.QueryString("MID").ToString()

Dim c As New OleDbConnection(WebConfigurationManager.ConnectionStrings("database").ConnectionString)
c.Open()
Dim cmd As New OleDbCommand("SELECT * from materyal WHERE MID=@MID", c)
cmd.Parameters.AddWithValue("@MID", Request.QueryString("MID"))

Dim dr As OleDb.OleDbDataReader
dr = cmd.ExecuteReader
dr.Read()
TextBox1.Text = dr("materyal").ToString
dr.Close()
c.Close()
End If

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim c As New OleDbConnection(WebConfigurationManager.ConnectionStrings("database").ConnectionString)
c.Open()
Dim cmd As New OleDbCommand("update materyal set konuID=@konuID,sinif=@sinif,materyal=@materyal,tur=@tur where MID=@MID", c)
cmd.Parameters.AddWithValue("@MID", Convert.ToInt32(Label2.Text))
cmd.Parameters.AddWithValue("@konuID", DropDownList3.SelectedItem.Value)
cmd.Parameters.AddWithValue("@sinif", Convert.ToString(DropDownList1.SelectedItem.Value))
cmd.Parameters.AddWithValue("@materyal", TextBox1.Text)
cmd.Parameters.AddWithValue("@tur", DropDownList4.SelectedItem.Text)
cmd.ExecuteNonQuery()
Label1.Text = "Güncelleme yapıldı."
c.Close()
End Sub