ต้องการนำข้อมูลใน TextBox เก็บลงใน Gridview ก่อนที่จะเก็บลง Database

foreach (GridViewRow r in dgvcomputer.Rows)
        {
           // วนลูปในกริดวิวครับ แล้วจะทำอะไรก็ใส่ลงไปในนี้เลยครับ
        }

Dim sqlConnectionString As String = "Your connection string"
Dim sqlConnection As SqlConnection = New SqlConnection()

Dim sqlCommandString As String = "INSERT INTO [MyTable] ([ComNo], [SerialNo], [TypeName], [Model], [Detail], [CPUSpeed], [CPUHDD], [CPURAM], [CPULancard]) VALUES (@ComNo, @SerialNo, @TypeName, @Model, @Detail, @CPUSpeed, @CPUHDD, @CPURAM, @CPULancard)"
Dim sqlCommand As SqlCommand = New SqlCommand(sqlCommandString)
' รูปแบบคือ ชื่อพารามิเตอร์, ประเภทข้อมูล, ขนาดข้อมูล, ชื่อฟิลของดาต้าเทเบิลที่ใช้ป้อนให้พารามิเตอร์
sqlCommand.Parameters.Add("@ComNo", SqlDbType.NVarChar, 50, "ComNo")
sqlCommand.Parameters.Add("@SerialNo", SqlDbType.NVarChar, 50, "SerialNo")
sqlCommand.Parameters.Add("@TypeName", SqlDbType.NVarChar, 50, "TypeName")
sqlCommand.Parameters.Add("@Model", SqlDbType.NVarChar, 50, "Model")
sqlCommand.Parameters.Add("@Detail", SqlDbType.NVarChar, 50, "Detail")
sqlCommand.Parameters.Add("@CPUSpeed", SqlDbType.NVarChar, 50, "CPUSpeed")
sqlCommand.Parameters.Add("@CPUHDD", SqlDbType.NVarChar, 50, "CPUHDD")
sqlCommand.Parameters.Add("@CPURAM", SqlDbType.NVarChar, 50, "CPURAM")
sqlCommand.Parameters.Add("@CPULancard", SqlDbType.NVarChar, 50, "CPULancard")

Try
   Dim sqlDataAdapter As SqlDataAdapter = New SqlDataAdapter()
   sqlDataAdapter.InsertCommand = sqlCommand
   sqlDataAdapter.Update(dtAddCom) 'เอา DataTable ใส่ตรงนี้
Catch ex As Exception
   MessageBox.Show(ex.Message)
End Try

Protected Sub btnaddcom_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnaddcom.Click
        Dim dtAddCom As New DataTable()
        Dim drAddCom As Add("SerialNo")
        dtAddCom.Columns.Add("TypeName")
        dtAddCom.Columns.Add("Model")
        dtAddCom.ColumnDataRow
        dtAddCom.Columns.Add("ComNo")
        dtAddCom.Columns.s.Add("Detail")
        dtAddCom.Columns.Add("CPUSpeed")
        dtAddCom.Columns.Add("CPUHDD")
        dtAddCom.Columns.Add("CPURAM")
        dtAddCom.Columns.Add("CPULancard")
 

      
เมื่อ ต้องการใส่เพิ่ม ข้อมูลลงไปเมื่อกด Ok 
ก็
          dtAddCom  = session("DT")   'ลองดูครับ..

        drAddCom = dtAddCom.NewRow()
        drAddCom("ComNo") = Session("ComNo")
        drAddCom("SerialNo") = Me.txtSerialNo.Text
        drAddCom("TypeName") = Me.ddlType.SelectedItem.Text
        drAddCom("Model") = Me.txtModel.Text
        drAddCom("Detail") = Me.txtDetail.Text
        drAddCom("CPUSpeed") = Me.txtSpeed.Text
        drAddCom("CPUHDD") = Me.txtHarddisk.Text
        drAddCom("CPURAM") = Me.txtRAM.Text
        drAddCom("CPULancard") = Me.txtLanCard.Text
        dtAddCom.Rows.Add(drAddCom)

*** เอา session("DT") = dtAddCom 
*** เก็บ Datatable ใส่ Session ไว้ก่อน....

 
        dgvcomputer.DataSource = dtAddCom
        dgvcomputer.DataBind()
    End Sub