[aftfm]

تم بحمد الله ارسال بيانات الاسم من جدول بقاعدة البيانات الى عناوين الداتا قريد
يتبقى ارسال بيانات كل اسم داخل القريد كل بيانات تحت الاسم الخاص به

وهذا كود لارسال الاسماء الى عناوين القريد

كود :

If Con.State = ConnectionState.Open Then Con.Close()
        Con.Open()
        Using MYDataAdapter As New OleDbDataAdapter("SELECT DISTINCT E_Name FROM tbl1", Con)
            Call MYDataAdapter.Fill(DataSet1, "E_NameTable")
            For Each MYRow As DataRow In DataSet1.Tables("E_NameTable").Rows
                Dim a As String = MYRow.Item("E_Name")
                Me.DataGridView1.Columns.Add("Columns", a.ToString)
            Next MYRow
        End Using