Dim rootEntry As New DirectoryEntry("GC://dc=my,dc=domain,dc=com")
        Dim searcher As New DirectorySearcher(rootEntry)
        searcher.PropertiesToLoad.Add("DisplayName")
        searcher.PropertiesToLoad.Add("department")
        searcher.PropertiesToLoad.Add("l")
        searcher.PropertiesToLoad.Add("mail")
        searcher.PropertiesToLoad.Add("telephoneNumber")
        searcher.PropertiesToLoad.Add("facsimileTelephoneNumber")
        'searcher.Filter = "(objectCategory=person)"
        searcher.Filter = ("displayName=" & txt_search.Text & "*")
        Dim results As SearchResultCollection
        results = searcher.FindAll()
 
        Dim colAdsObj As New Collection()
        Dim result As SearchResult
        For Each result In results
            Try
                colAdsObj.Add(result.Properties("DisplayName")(0) & Chr(59) & _
                  result.Properties("department")(0) & Chr(59) & _
                  result.Properties("l")(0) & Chr(59) & result.Properties( _
                  "mail")(0) & Chr(59) & result.Properties("telephoneNumber")( _
                  0) & Chr(59) & result.Properties("facsimileTelephoneNumber")( _
                  0))
            Catch ex As Exception
            End Try
        Next