■更新数据到数据库中不起作用，请帮我看看问题出在哪？

[迷死特兔]

页面上有个panel1控件，里面有一个提交按钮；几个文本框，用来显示和修改数据,在Page_load中我可以把数据读出来，我在文本框内修改了数据后，点击提交按钮后，程序写入数据库正常，但是，就是不写入我修改后的数据，而写入的还是原来的数据，怪！

请问这是怎么回事？为何不能更新新的数据呢？
下面是代码：
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim sConn As String = "Provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("db/article.mdb")
Dim sSQL As String = "Update article Set Title=@Title,Content=@Content,AddDate=@AddDate,ViewCount=@ViewCount,Sort=@Sort where [ID]=" & Request("ID")
Dim conn As New OleDbConnection(sConn)
Dim cmd As New OleDbCommand(sSQL, conn)

cmd.Parameters.Add(New OleDbParameter("@Title", OleDbType.VarChar))
cmd.Parameters("@Title").Value = txtTitle.Text
cmd.Parameters.Add(New OleDbParameter("@Content", OleDbType.VarChar))
cmd.Parameters("@Content").Value = txtContent.Text
cmd.Parameters.Add(New OleDbParameter("@AddDate", OleDbType.VarChar))
cmd.Parameters("@AddDate").Value = txtAddDate.Text
cmd.Parameters.Add(New OleDbParameter("@ViewCount", OleDbType.VarChar))
cmd.Parameters("@ViewCount").Value = txtViewCount.Text
cmd.Parameters.Add(New OleDbParameter("@Sort", OleDbType.VarChar))
cmd.Parameters("@Sort").Value = "1"

Try
cmd.Connection.Open()
cmd.ExecuteNonQuery()
Response.Write("<font color='#339900'>更新成功！</font>")
Catch
Response.Write("<font color='#FF0000'>更新失败！</font>")
Finally
cmd.Connection.Close()
End Try
end sub

[ksy]

说明根本就没找到需要更新记录。

[keeven]

检查一下你的程序是不是用了acceptChange