VB.net GridView 更新问题

VB.net web form
VS2019
数据库：ACC2016
GridView控件可以获取数据库数据，点编辑后可以编辑数据但点更新后数据不能更新，哪位能帮帮忙啊，谢谢！

代码没有报错，可以正常执行但就是不更新数据

'取肖代码
Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
GridView1.EditIndex = -1
GridRefesh()
End Sub

'编辑代码

Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
    Session("oldNo") = GridView1.Rows(e.NewEditIndex).Cells(1).Text

    GridView1.EditIndex = e.NewEditIndex
    '当前编辑行背景色高亮
    GridView1.EditRowStyle.BackColor = Drawing.Color.FromName("#F7CE90")
    ' GridView1.EditRowStyle.BackColor = #F7CE90

    GridRefesh()



End Sub

'更新
Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating

    Dim oldno As String = Session("oldNo").ToString
    Dim a As TextBox = GridView1.Rows(e.RowIndex).Cells(1).Controls(0)
    Dim currno As String = a.Text
    Dim b As TextBox = GridView1.Rows(e.RowIndex).Cells(2).Controls(0)
    Dim currname As String = b.Text

    Dim tablename As String = "用户信息表"
    Dim strr As String
    Dim ds As New DataSet()
    Dim addrow As DataRow = Commonmodule.mytable.NewRow

    strr = "update 用户信息表 set 用户名=@用户名,密码=@密码,单位名称=@单位名称,备注=@备注,联系人=@联系人,联系人电话=@联系人电话,联系人电话2=@联系人电话2,送货地址=@送货地址,用户状态=@用户状态,充值余额=@充值余额" ' where ID=@ID"
    Commonmodule.SQLOpera(strr, tablename)
    Try
        mytable.Rows.Add(addrow)
        Commonmodule.mycmdbuilder = New OleDb.OleDbCommandBuilder(Commonmodule.mydap)
        Commonmodule.mydap.Update(Commonmodule.mydataset, tablename)

    Catch ex As Exception
        MsgBox(Err.Description, MsgBoxStyle.Information)
    End Try

    GridView1.EditIndex = -1
    GridRefesh()
End Sub

     GridRefesh方法
     Private Sub GridRefesh()

    Dim tablename As String = "用户信息表"
    Dim strr As String
    Dim ds As New DataSet()
    strr = "select ID,用户名,单位名称,联系人,联系人电话,联系人电话2,送货地址,用户状态,充值余额,备注 from 用户信息表 "
    Commonmodule.SQLOpera(strr, tablename)
    mydap.Fill(ds)
    GridView1.DataSource = ds
    GridView1.DataBind()

先看看catch有没有抓到异常，如果有，把异常贴出来
然后看GridRefesh()的代码怎么写的，怎么个刷新，有没有重新读取数据库select再datasource绑定的。

update语句的参数没有赋值。明显的，oldno声明了但没有使用