错误出现在保存数据库时出现，不知道错在哪里？

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim objconnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\规管数据库\shujuku.accdb")
    Dim objdataadapter As New OleDbDataAdapter("SELECT  * FROM biao ORDER BY 序号", objconnection)
    Dim objdataview As DataView
    Dim objdataset As DataSet
    Dim objcurrencymanager As CurrencyManager
end sub

    Private Sub filldatasetandview()
        objdataset = New DataSet
        objdataadapter.Fill(objdataset, "biao")
        objdataview = New DataView(objdataset.Tables("biao"))
        objcurrencymanager = CType(Me.BindingContext(objdataview), CurrencyManager)
    End Sub

 Private Sub mydtgr()                                         '绑定datagridview
        grdauthortitles.AutoGenerateColumns = True
        grdauthortitles.DataSource = objdataview
        Dim objalternatingcellstyle As New DataGridViewCellStyle
        objalternatingcellstyle.BackColor = Color.WhiteSmoke
        grdauthortitles.AlternatingRowsDefaultCellStyle = objalternatingcellstyle


 Private Sub wbkbangding()                                           '绑定文本框
       TextBox47.DataBindings.Add("text", objdataview, "序号")     
        TextBox52.DataBindings.Add("text", objdataview, "备份备注")
        TextBox54.DataBindings.Add("text", objdataview, "批准项目机构")
        TextBox53.DataBindings.Add("text", objdataview, "日期")
        TextBox56.DataBindings.Add("text", objdataview, "X用地规模")
        TextBox55.DataBindings.Add("text", objdataview, "J道路红线")
        TextBox57.DataBindings.Add("text", objdataview, "D该用地")
        建设单位TextBox1.DataBindings.Add("text", objdataview, "建设单位")

....全部列

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click           'datagridview添加新行
        objdataview.AddNew()
        objcurrencymanager.Position = objcurrencymanager.Count - 1
        showposition()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click    ’保存数据库
        Dim objcommand As New OleDbCommand
        Dim intposition As Integer
        intposition = objcurrencymanager.Position
        objcommand.Connection = objconnection
         = "update biao " & _
"set D该用地=TextBox57,X用地规模=TextBox56,J道路红线=TextBox55,批准项目机构=TextBox54, .....全部列 where 序号=TextBox47"

         = CommandType.Text

        objcommand.Parameters.AddWithValue("D该用地", TextBox57.Text)
        objcommand.Parameters.AddWithValue("X用地规模", TextBox56.Text)
        objcommand.Parameters.AddWithValue("J道路红线", TextBox55.Text)
        objcommand.Parameters.AddWithValue("批准项目机构", TextBox54.Text)
        objcommand.Parameters.AddWithValue("日期", TextBox53.Text)
        objcommand.Parameters.AddWithValue("序号", TextBox47.Text)
        objcommand.Parameters.AddWithValue("建设单位", 建设单位TextBox1.Text)
        objcommand.Parameters.AddWithValue("X项目名称", X项目名称TextBox.Text)
        objcommand.Parameters.AddWithValue("X建设项目依据", X建设项目依据TextBox.Text)
        objcommand.Parameters.AddWithValue("X附图名称", X附图名称TextBox.Text)
 .....全部列
  
        objconnection.Open()
        objcommand.ExecuteNonQuery()
        objconnection.Close()
        filldatasetandview()
        binddfields()
        objcurrencymanager.Position = intposition
        wbkguan()
    End Sub

愿意帮忙的朋友请详细点，因为我是个初学者，自学的

没有错误提示，就是存不到数据库。第九行是个查询。

该了以后这行出现错误，“没有为命令对象设置命令”
objcommand.ExecuteNonQuery()

我的存储过程名称是什么？

能不能Q聊？

数据库列很多，我没全写，所以用了....全部列

能不能给个例子？这一列INT，一列TEXT，一列DATE怎么写？我是看书学的所以有点难

我可真搞不懂，哎.........

帮就帮到底嘛，我真不懂，自学全靠书，写个简单例子不就行了