update语句的语法错误

Public Class Frmxtsz
    Private mdbAdpter As New OleDbDataAdapter
    Private dt As New DataTable
    Private Sub Frmxtsz_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“RsDataSet.User”中。您可以根据需要移动或移除它。
        'Me.UserTableAdapter.Fill(Me.RsDataSet.User)
        Dim mdbstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Rs.mdb"
        Dim mdbconn As New OleDbConnection(mdbstring)
        mdbAdpter.SelectCommand = New OleDbCommand("select * from [User]", mdbconn)
        mdbAdpter.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ocb As New OleDbCommandBuilder(mdbAdpter)
        mdbAdpter.Update(dt)
    End Sub
End Class --------------------编程问答-------------------- 顶下！各位大侠帮忙看看~~急~~~~~ --------------------编程问答-------------------- update没有更新语句，所以无法执行更新 --------------------编程问答-------------------- 我在顶啊！哪个大侠帮我看下啊！菜鸟在此等候啊 --------------------编程问答-------------------- 那怎么写呢！ --------------------编程问答-------------------- 我是想要让客户随便修改datagirdview里面的数据！然后保存到数据库！怎么写呢！ --------------------编程问答--------------------



Public Class Frmxtsz 

    Private mdbAdpter As New OleDbDataAdapter 

    Private dt As New DataTable 

    Private Sub Frmxtsz_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

        'TODO: 这行代码将数据加载到表“RsDataSet.User”中。您可以根据需要移动或移除它。 

        'Me.UserTableAdapter.Fill(Me.RsDataSet.User) 

        Dim mdbstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Rs.mdb" 

        Dim mdbconn As New OleDbConnection(mdbstring) 

        mdbAdpter.SelectCommand = New OleDbCommand("select * from [User]", mdbconn) 

        mdbAdpter.Fill(dt) 

        DataGridView1.DataSource = dt 

    End Sub 



    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

        Dim ocb As New OleDbCommandBuilder(mdbAdpter) 

        mdbAdpter.Update(dt) 

    End Sub 

End Class

--------------------编程问答--------------------   Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ocb As New OleDbCommandBuilder(mdbAdpter)
        mdbAdpter.Update(dt)
    End Sub

dt上form里的记录，在Button1_Click失效！

欢迎加入我的程序设计QQ群80532706哟 --------------------编程问答-------------------- 可是我用 fil以后还是这个问题啊！ --------------------编程问答-------------------- 你必须在数据集中生成表的更新语句。
如:下为代码方式,
dim strsq as String="UPDATE 汇总 SET 期数 =@期数 WHERE 序号=@序号"
        ad.DeleteCommand = '删除
        ad.InsertCommand = '插入
        ad.UpdateCommand = strsq '更新

--------------------编程问答-------------------- 楼主：
建议您看看数据库入门的书籍或视屏什么的。
如果想省事您可以直接使用添加数据源由系统完成数据库操作语句，个人感觉比较耗资源。

补充：.NET技术 ,  VB.NET