[Anas Mahmoud]

تفضل اخي الكريم

كود :

   Dim cn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=ArEnLang.accdb;Persist Security Info=True"

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

       Dim StrSQL As String = "Select Id, CountriesNamesAR, FlagSmall, CapitalAr From countriesnames ORDER BY countriesnamesAR"
       Dim dt As DataTable = GetDataTable(StrSQL)
       TreeView1.Nodes.Clear()


       For Each r As DataRow In dt.Rows
           Dim I As New TreeNode()
           I.Text = r("CountriesNamesAR")
           I.ImageKey = r("Id")
           ImageList1.Images.Add(r("Id"), ImgFromByte(r("FlagSmall")))
           I.Nodes.Add(New TreeNode(TryCast(r("CapitalAr"), String)))
           TreeView1.Nodes.Add(I)
       Next

   End Sub
   Function ImgFromByte(img As Byte()) As Bitmap
       Using ms As New MemoryStream(img)
           Return New Bitmap(ms)
       End Using
   End Function

   Function GetDataTable(query As String) As DataTable
       Dim dt As New DataTable
       Using conn As New OleDbConnection(cn)
           Using cmd As New OleDbCommand(query, conn)
               Using da As New OleDbDataAdapter(cmd)
                   da.Fill(dt)
               End Using
           End Using
       End Using
       Return dt
   End Function