[mohamed haroon]

شكرا لمشاركة الاخوة لقد وجدت هذا الكود و هو يعمل بنجاح

كود :

provider = "Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=2016;Data Source ="
       dataFile = "C:\Users\mohamed haroon\Desktop\db1.mdb"
       connString = provider & dataFile
       myConnection.ConnectionString = connString
       myConnection.Open()
       Try
           Dim Rest() As String = {Nothing, Nothing, "infoma", Nothing}
           Dim columns As String = "Columns"
           Dim dt As DataTable = myConnection.GetSchema(columns, Rest)
           For Each row As DataRow In dt.Rows
               dg.Rows.Add(row.Item("COLUMN_NAME").ToString)
           Next

           myConnection.Close()
       Catch ex As Exception
       End Try