更新不了，有什么错误啊

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        conn = New Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("~\app_data\ie.mdb"))
        conn.Open()
        Dim strsql As String
        strsql = "select tm,js,tp from al WHERE id=" & Request.QueryString("id")
        Dim cmd As New Data.OleDb.OleDbCommand(strsql, conn)
        Dim dr As Data.OleDb.OleDbDataReader = cmd.ExecuteReader
        dr.Read()
        tmTextBox.Text = dr.Item("tm")
        content1.Text = dr.Item("js")
        picnm.ImageUrl = dr.Item("tp")
            dr.Close()  
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim conn As New Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("~/app_data/ie.mdb"))
        conn.Open()
        Dim cmd As New Data.OleDb.OleDbCommand("UPDATE al set tm='" & tmTextBox.Text & "', js='" & content1.Text & "', tp='" & picnm.ImageUrl & "' where id=" & Request.QueryString("id"), conn)
        cmd.ExecuteNonQuery()
        conn.Close()
        MsgBox("更新成功", MsgBoxStyle.OkOnly, "提示")


    End Sub --------------------编程问答-------------------- --------------------编程问答-------------------- 如果page_load事件删除就能更新，怎么让page_load执行一次啊 --------------------编程问答-------------------- 大家帮帮忙啊！！ --------------------编程问答-------------------- ghjrtfjkyryujrtuj6 儿童画日月潭任我游污染源温柔意外妊娠 --------------------编程问答-------------------- 大家帮帮忙啊！！ --------------------编程问答-------------------- 大家帮帮忙啊！！ --------------------编程问答-------------------- 到底有什么错误啊！！！ --------------------编程问答-------------------- 你的是WEB页面吧，防止表单重复提交必须在LOAD的时候判断
Page.IsPostBack

补充：.NET技术 ,  VB.NET