Dim sPath As String = "LDAP://dc=praxis,dc=local"
        Dim de As New DirectoryEntry(sPath, "Administrator", "AdminPasswort")
 
 
        Dim searcher As New DirectorySearcher(de)
        Dim results As SearchResultCollection
        Dim result As SearchResult
 
        searcher.Filter = "(objectClass=Group)"
        results = searcher.FindAll
 
        For Each result In results
            Dim rw As DataRow = dt.NewRow
 
            Dim Beschreibung As ResultPropertyValueCollection = _
              result.Properties("description")
 
 
            If Beschreibung Is Nothing Then
                rw.Item("Beschreibung") = "leer"
            Else
                rw.Item("Beschreibung") = (Beschreibung(0))
            End If
 
 
            dt.Rows.Add(rw)
        Next result
 
        dt.Rows.Add(rw)
        DataGrid1.DataMember = ("Userliste1")