حفظ تفاصيل الفاتورة

لدي فورم فية معلومات الفاتورة وكذا داتاجريد لتفاصيل الفاتورة عملت لها كود للحفظ في الجدولين وجدتة في احد المشاركاات في المنتدى وعدلت بعض المعلومات وبدا كانة مناسب وعمل الحفظ بس بقيت مشكلة وهي كيف احضر تعريف الفاتورة(oprationid) الذي هوا ترقيم تلقائي في الجدول المسمى(opration) لكي اقوم بحفظة في جدول تفاصيل الفاتورة المسمى(stockout) هذة هي المشكلة نرجوا من الاخوة الكرام التكرم بالافادة بشكل مشروح واضح لاني مبتدي ويصعب علي فهم بعض المصتلحات البرمجية في الكود ولذالك احضرت الكود ارجوا الاطلاع والتاكد اذا فية اي اخطا افيدونا جزاكم الله خير مع العلم اني قد بحثت عدت مرات في المنتدى ولم اجد الا اكواد لم افهمها وجربتها ولم انجح

 
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
            Try
                SavInto.CommandText = "INSERT INTO opration(customer , godis , godrug , non, aoterstring, daten)values ('" & Me.Cmbcust.Text & "','" & Me.Txt3.Text & "','" & Me.Txt2.Text & "','" & Me.Txt1.Text & "','" & Me.Txttype.Text & "','" & Me.Dtdate.Value & "')"
     هذة محاولة لايجاد التعريف لم تنجح بعد'  Dim opratinid As Integer

         هذا يضا ضمن المحاولة  'opratinid = Integer.Parse(cmd.ExecuteScalar().ToString()) 'Get the @Identity Column
                هذا يضا ضمن المحاولة  ' MsgBox(opratinid)
                SavInto.ExecuteNonQuery()
                opratinid = 1

                For Each row As DataGridViewRow In Me.DGV1.Rows
                    If row.Cells(Me.Qty.Index).Value = "" Then Exit For

                    SQLstr = "INSERT INTO stockout (opratinid, pn, qtyout, bunsout, soledprice) VALUES(" & opratinid & ", " & row.Cells(Me.pn.Index).Value & ", " & row.Cells(Me.Qty.Index).Value & ",'" & row.Cells(Me.PNS.Index).Value & "'," & row.Cells(Me.price.Index).Value & ")"

                    cmd = New OleDbCommand(SQLstr, Conn)
                    cmd.ExecuteNonQuery()
                Next row
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try