مشكلة في كود الحفظ

عندي مشكلة في كود الحفظ

يحفظ في جدولين ماعدا حقل واحد لانه غير متضمن في الداتاجريد فاريد ان احفظه في الجدول

وهذا هو الكود ارجو التعديل عليه

Private Sub BTN_SAV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_SAV.Click

If con.State = ConnectionState.Open Then

con.Close()

End If

If bill_no.Text = Nothing Or CMP_CUS.Text = Nothing Or DataGridView1.Rows.Count = 0 Or TXT_TOT.Text = Nothing Or TXT_PAY.Text = "" Then

MsgBox("Cant save incomplete information", MsgBoxStyle.Critical, Me.Text)

Exit Sub

End If

Dim rs1, rs2, rs3 As String

Try

rs1 = "INSERT INTO Bill_info (bill_id,cus_id,cus_cit,cus_nam,bill_dat,rciv_da,paied,tot,mon_pay,chang) VALUES (@bill_id, @cus_id, @cus_cit, @cus_nam, @bill_dat, @rciv_da, @paied, @tot, @mon_pay, @chang)"

Dim cmdbill As New OleDb.OleDbCommand(rs1, con)

cmdbill.Parameters.AddWithValue("Bill_id", bill_no.Text)

cmdbill.Parameters.AddWithValue("Cus_id", txt_cUS_id.Text)

cmdbill.Parameters.AddWithValue("Cus_cit", CMP_CIT.Text)

cmdbill.Parameters.AddWithValue("Cus_nam", CMP_CUS.Text)

cmdbill.Parameters.AddWithValue("bill_dat", bill_dat.Text)

cmdbill.Parameters.AddWithValue("rciv_da", bill_rci.Text)

cmdbill.Parameters.AddWithValue("paied", CheckBox1.Checked)

cmdbill.Parameters.AddWithValue("tot", TXT_TOT.Text)

cmdbill.Parameters.AddWithValue("mon_pay", TXT_PAY.Text)

cmdbill.Parameters.AddWithValue("chang", TXT_CHANG.Text)

con.Open()

Dim x As Integer = cmdbill.ExecuteNonQuery

con.Close()

For i As Integer = 0 To DataGridView1.RowCount - 2

rs2 = "insert into item_sold (ibill_no) values (@ibill_no)"

rs3 = "INSERT INTO item_sold (itm_id, itm_nam, uni_pri, unit_qut, total) Values (@id_itm, @item_nam, @itm_pri, @item_unit, @total)"

Dim cm As New OleDbCommand(rs3, con)

Dim sol As New OleDb.OleDbCommand(rs2, con)

With cm.Parameters

sol.Parameters.AddWithValue("iBill_no", bill_no.Text).DbType = DbType.String

.AddWithValue("@itm_id", DataGridView1.Rows(i).Cells("id_itm").Value).DbType = DbType.String

.AddWithValue("@itm_nam", DataGridView1.Rows(i).Cells("item_nam").Value).DbType = DbType.String

.AddWithValue("@uni_pri", DataGridView1.Rows(i).Cells("itm_pric").Value).DbType = DbType.String

.AddWithValue("@unit_qut", DataGridView1.Rows(i).Cells("item_unit").Value).DbType = DbType.String

.AddWithValue("@total", DataGridView1.Rows(i).Cells("total").Value).DbType = DbType.String

End With

con.Open()

cm.ExecuteNonQuery()

sol.ExecuteNonQuery()

con.Close()

Next

MessageBox.Show(x.ToString & "Saved Successfully....")

Catch ex As Exception

MsgBox(ex.Message)

End Try

Call CLEAR()

btn_prin.Enabled = True

BTN_EX.Enabled = True

End Sub