ي اخوان التدخل العاجل لمساعدتكم عجزت والله في ربط جدولين مع بعض مرفق لكم نموذج جاهز

كود :
Imports System.Data.OleDb

Imports System.IO



Public Class Form1



    Public Cn As New OleDbConnection("provider=microsoft.Ace.oledb.12.0;data source=  " & Application.StartupPath & "\TestDB.accdb")







    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Customer1TableAdapter.Fill(Me.TestDBDataSet.Customer1)

        Me.CustomerTableAdapter.Fill(Me.TestDBDataSet.Customer)



    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        If Cn.State Then Cn.Close()

        Cn.Open()



        Dim Cmdd As New OleDbCommand("Insert into Customer(Customer_Name,Phone,total)values(@Customer_Name,@phone,@total)", Cn)

        Cmdd.Parameters.AddWithValue("@Customer_Name", Customer_NameTextBox.Text)

        Cmdd.Parameters.AddWithValue("@Phone", PhoneTextBox.Text)

        Cmdd.Parameters.AddWithValue("@total", TotalTextBox.Text)



        If Cmdd.ExecuteNonQuery >= 1 Then

            Cmdd.CommandText = "SELECT @@IDENTITY"

            Dim id_customer = Cmdd.ExecuteScalar



            Dim Cmdd2 As New OleDbCommand("Insert into Customer1(ID_Customer,proudect,price,items,total)values(@ID_Customer,@proudect,@price,@items,@total)", Cn)

            For Each r As DataGridViewRow In Customer1DataGridView.Rows

                If r.IsNewRow Then Exit For

                Cmdd2.Parameters.Clear()

                Cmdd2.Parameters.AddWithValue("@ID_Customer", id_customer)

                Cmdd2.Parameters.AddWithValue("@proudect", r.Cells(2).Value.ToString)

                Cmdd2.Parameters.AddWithValue("@price", r.Cells(3).Value.ToString)

                Cmdd2.Parameters.AddWithValue("@items", r.Cells(4).Value.ToString)

                Cmdd2.Parameters.AddWithValue("@total", r.Cells(5).Value.ToString)

                Cmdd2.ExecuteNonQuery()

            Next

        End If



        Cn.Close()



        'اريد كود حفظ بيانات داخل الداتا جيرد فيور + الربط بين الجدولين برقم المعرف من الجدول الأول وشكرا 





        MsgBox("تم الحفظ")

    End Sub





End Class