[mohamed haroon]

كود :

Dim str As String = "Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=2016;Data Source=C:\Users\mohamed haroon\Desktop\db1.mdb;"

    Dim con As New OleDb.OleDbConnection(str)

dg.DataSource = Nothing
        dg.Rows.Clear()
        Dim d As New DataTable("infoma")
        Dim cm As New OleDb.OleDbCommand("", con)
        cm.Parameters.Clear()
        If con.State = ConnectionState.Closed Then con.Open()
       
        dg.ColumnCount = 2
        dg.Columns(0).Name = "details"
        dg.Columns(1).Name = "type"

        Dim name(d.Columns.Count) As String
        Dim i As Integer = 0
        For Each column As DataColumn In d.Columns
            name(i) = column.ColumnName
            i += 1
        Next

هذا هو قصدى لاكنى لا ادرى كيفية استخراج المصفوفة name فى data grid view