actualizar base de datos asp.net

[figoni]

Protected Sub Actualizar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Actualizar.Click

Dim aux As String
aux = Request.ServerVariables("LOGON_USER").ToString().R emove(0, 15)

Dim Entry_ldap As New DirectoryEntry("LDAP://RED")
Dim lista_atr() As String = {"department"}
Dim Filter As String = ("(&(sAMAccountName=" & aux & ")(objectclass=" & "user" & "))")
Dim my_ldap_user As DirectorySearcher = New DirectorySearcher(Entry_ldap, Filter, lista_atr)


my_ldap_user.PropertyNamesOnly = True
Dim result As SearchResult

result = my_ldap_user.FindOne()
result.GetDirectoryEntry.Properties.Item("departme nt").Value = Departamento_txt.Text
result.GetDirectoryEntry.CommitChanges()
End Sub


y con esto estoy tratando de actualizar el active directory

pero = no me resulta quiero decir no me manda error pero cuando preciono el boton actualizar no ase nada es como si la caja de texto no mabiara su contenido
no se si me ago entender bien