ASP.NET - Conecion con Active Directory (DA)

Hola buenas,

Alguien sabe decirme cual es el error aqui??

Private Function acceso1(ByVal strDominio As String, ByVal strUser As String, ByVal strClave As String) As Boolean
Try
Dim strPath As String = "LDAP://DC=mi_dominio,DC=da"

Dim domainAndUsername As String = strDominio + "\" + strUser

Dim entry As DirectoryEntry = New DirectoryEntry(strPath, domainAndUsername, strClave)
Dim search As DirectorySearcher = New DirectorySearcher(entry)

search.Filter = "name=" + strUser
Dim results As SearchResult
results = search.FindOne

Dim objUser As New DirectoryEntry
objUser = results.GetDirectoryEntry()
Return 1

Catch ex As System.Exception
Return 0
Me.lblError.Text = "Error: " & ex.Message
End Try
End Function

Cuando llega al objUser = results.GetDirectoryEntry() da el error de que no es una instancia de un objeto, es decir como si faltara el New..

Si alguien sabe algo, no dudeis en escribirlo, gracias.