Perdida de dato en TextBox

[Giufantasy]

Mira este es el codigo que tengo en el formulario de la grilla. este es el tercer formulario que se abre cuando apreto el boton

Private Sub FrmCargaGrillaEmpresa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Instanciar métodos de consultas
Dim metodoGrillaSistemaEspecifico As New CAPA_NEGOCIO.Consulta_Negocio
'Crear iterator para acceder a los datos
Dim iterator As System.Collections.IEnumerator = auxConAsig.CargarGrillaDatosEspecificosSistema().G etEnumerator
While (iterator.MoveNext)
Dim sistema As New CAPA_DTO.Sistema
sistema = iterator.Current
'Insertar los datos del ArrayList a la tabla
Dim row0 As String() = {CStr(sistema._id_sistema), CStr(sistema._descripcion)}
With Me.DGVSistemas.Rows
.Add(row0)

End With
End While
End Sub

Private Sub DGVSistemas_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVSistemas.CellContentClick
Dim pantallaAsignacionPerfilesEspeciales As New FrmAsignacionPerfilEspecial
Dim pantallaAsignacionPerfilEspecial As New FrmAsignacionPerfilEspecial
pantallaAsignacionPerfilesEspeciales.TxtCodigoAsig nacion.Text = Me.DGVSistemas.Rows(e.RowIndex).Cells(0).Value()
pantallaAsignacionPerfilesEspeciales.TxtSistemaAsi gnacion.Text = Me.DGVSistemas.Rows(e.RowIndex).Cells(1).Value()
pantallaAsignacionPerfilesEspeciales.Visible = False

pantallaAsignacionPerfilesEspeciales.Visible = True
pantallaAsignacionPerfilesEspeciales.Show()

Me.Close()


End Sub

No se que onda

y no hay ningun evento que no refresque, porque al momento de pinchar el boton se borra inmediatamente el rut???????????

No se que hacer, favor ayudame

= que tu me ayudaste en el TreeView, ya esta cargado y todo,
pero ahora me repite los nodos padres y como los nodos padres tienen nodos hijos asociados, estos tambien me los repite