Dim Loglar As New SqlCeCommand("select * from HATALAR", conn) 
              Dim da As New SqlCeDataAdapter(Loglar) 
              Dim ds As New DataSet 
              Dim dt As New DataTable 
              ds.Tables.Add(dt) 
              da.Fill(dt) 
  

 
  LoglarDG.DataSource = dt.DefaultView 
  

 
   For Each row As DataRow In dt.Rows 
                  If row("HATA_TURU").ToString.ToLower = "error" Then 
                      Dim trueImg As Bitmap = New Bitmap(My.Resources._Error.ToBitmap) 
                      row("HATA_TURU") = trueImg 
                  ElseIf row("HATA_TURU").ToString.ToLower.Replace("ı", "i") = "info" Then 
                      Dim trueImg As Bitmap = New Bitmap(My.Resources.INFO.ToBitmap) 
                      row("HATA_TURU") = trueImg 
                  ElseIf row("HATA_TURU").ToString.ToLower = "ok" Then 
                      Dim trueImg As Bitmap = New Bitmap(My.Resources.OK.ToBitmap) 
                      row("HATA_TURU") = trueImg 
                  Else 
                      Dim trueImg As Bitmap = New Bitmap(My.Resources.Unkonw.ToBitmap) 
                      row("HATA_TURU") = trueImg 
                  End If 
              Next 
  

 
   
      Sub ldapGetir(ByVal link As String, Optional ByVal OU As String = Nothing) 
          Try 
              Dim entry As New DirectoryEntry(link, Form1.DmKullaniciTX.Text, Form1.DmSifreTx.Text, AuthenticationTypes.Secure) 
              Dim ds As New DirectorySearcher(entry, "objectClass=organizationalUnit", Nothing, SearchScope.OneLevel) 
              Dim src As SearchResultCollection = Nothing 
              src = ds.FindAll() 
              entry.Close() 
              entry.Dispose() 
   
              For Each sr As SearchResult In src 
                  Dim SubNameT As Array = sr.Path.ToString.Replace("LDAP://benimdomainim.com/", "").Replace(",DC=benimdomainim,DC=com", "").Split(",") 
                  Dim OULAR As New ArrayList(SubNameT.Length) 
                  For dongu = 0 To UBound(SubNameT) 
                      Dim degisken As String = SubNameT(dongu) 
                      Dim bolunen = degisken.Split("=") 
                      If bolunen(0) = "OU" Then OULAR.Add(bolunen(1)) 
                  Next 
   
                  Dim MyNode() As TreeNode 
   
                  If OULAR.Count >= 2 Then 
                      MyNode = TreeView1.Nodes.Find(OULAR(1), True) 
                      Try 
                          MyNode(0).Nodes.Add(sr.Properties("name")(0).ToString()) 
                      Catch ex As Exception 
                          'RichTextBox1.Text += MyNode.Rank & ";" & OULAR(1) & ";" & sr.Properties("name")(0).ToString & ";" & vbNewLine 
                      End Try 
                  Else 
                      TreeView1.Nodes.Add(sr.Properties("name")(0).ToString()) 
                  End If 
                  ldapGetir(sr.Path.ToString) 
              Next 
          Catch ex As Exception 
              MsgBox(ex.Message.ToString) 
          End Try 
      End Sub