请教VB.NET数据库

Me.TableAdapter1.Update(Me.DataSet1.表名)‘更新
Dim drows1 As DataRow() = outDataTable.Select(code + "=CQZD")  ‘查询
outDataTable.Columns.Add("章别", System.Type.GetType("System.Text"))  ’增加列字段
Public Sub AddItemRow(ByVal code As String, ByVal PrjName As String, ByVal unit As String, ByVal num As Single, ByVal zhibiao As Single, Optional ByVal section As String = "", Optional ByVal chart As String = "")
      AddItemRow("", "第一部分", "公里", "", "")  ‘增加行