dropdownlist con active directory

[figoni]

hola que bueno que el foro esta arriba denuevo

bueno el problema que tengo es que cuando trato de cargar los datos de active directory en un dropdownlist no me los muestra
lo que yo tengo es el codigo que sirve para cargar los datos en caja de texto pense que seria similar la manera de hacerlo pero no pude si alguien me pudiera ayudar porfa

este es el codigo que tengo para cargar en cajas de texto funciona y valida que si el valor es null del active directory se muestre en vacio



Public Shared Function GetFullmobile(ByVal mobile As String, ByVal UserName As String) As String

Dim oDirectory As New DirectoryEntry("LDAP://" & mobile)
Dim mySearcher As New DirectorySearcher(oDirectory)
Dim oResult1 As SearchResult
Dim sResult3 As String = ""

mySearcher.SearchScope = SearchScope.Subtree
mySearcher.ReferralChasing = ReferralChasingOption.All
mySearcher.Filter = "(&(objectClass=user)(sAMAccountName=" & UserName & "))"

Try
oResult1 = mySearcher.FindOne
If oResult1.Properties("mobile").Count = 0 Then
sResult3 = ""
Else
sResult3 = oResult1.GetDirectoryEntry.Properties.Item("mobile ").Value.ToString()
End If


Catch ex As Exception
Throw ex
End Try

oResult1 = Nothing
mySearcher.Dispose()
oDirectory.Dispose()
Return sResult3
End Function