Perdida de dato en TextBox

[Giufantasy]

Millones de Gracias....eres lo mas grande......... ahora si que si

Seco Significa que eres muy bueno en lo que haces, en este caso Programando...

La ultima consulta

ahora se carga el treeview y necesito capturar el codigo del nodo seleccionado,
como lo hago

Mira asi cargo el TreeView

Public Sub cargarTreeView()
'CARGANDO EL TREEVIEW CON EL INICIO DEL FORMULARIO

' crear conexión
Dim cadena As String
cadena = "Data Source = BRAVO; Initial Catalog = dbmultiusuario; Integrated Security=SSPI; Trusted_Connection=false; user id = glopez ; Password = lopez"
Dim cnn As New SqlConnection(cadena)
Dim variable As String
variable = Me.TxtCodigoAsignacion.Text

' crear los DataAdapter
Dim oDAMenu As New SqlDataAdapter("select m.idmenu, f.codigo_form FROM FORMULARIO f, SISTEMA s, MENU m WHERE (s.idsistema = f.idsistema) and (m.idsistema = s.idsistema) and f.idsistema = '" & Me.TxtCodigoAsignacion.Text & "'", cnn)
'Dim oDAFormulario As New SqlDataAdapter("SELECT * FROM FORMULARIO ", cnn)

' crear conjunto de datos
Dim oDataSet As New DataSet

' utilizar los adaptadores para llenar el dataset con las tabla
oDAMenu.Fill(oDataSet, "MENU")
'oDAFormulario.Fill(oDataSet, "FORMULARIOS")

' defino variables del tipo DataTable
Dim oTablaMenu As New DataTable
'Dim oTablaFormulario As DataTable

' asigno a las variables los datos de las tablas del DataSet
oTablaMenu = oDataSet.Tables(0)
'oTablaFormulario = oDataSet.Tables("FORMULARIOS")

Dim oVista As DataView

' lleno la vista con el contenido de la Tabla MENU
'oVista = oDataSet.Tables("MENU").DefaultView
oVista = oTablaMenu.DefaultView

' deshabilita la actualización en pantalla del control TreeView
TVMenuAsignacion.BeginUpdate()

' defino variable del tipo DataRow
'Dim Registro As DataRow

'Declarando el Nodo
Dim nodo As New TreeNode

' creo un nodo raiz (el nombre Country, puede ser cualquier texto como Raíz, Root, etc.)
nodo = TVMenuAsignacion.Nodes.Add("Sistema")

'For Each Registro In oTablaMenu.Rows
For Each Registro As DataRow In oTablaMenu.Rows
' agrego el nodo en el segundo nivel
nodo = TVMenuAsignacion.Nodes(0).Nodes.Add(Registro("IDME NU").Trim())
' si no hay un nodo raiz, se usaría la siguiente línea
'nodo = TVMenuAsignacion.Nodes.Add(Trim(Registro("CARGA")) )

' realizo un filtro dentro de la vista
oVista.RowFilter = "IDMENU = '" & Registro("IDMENU") + "'"

' ciclo para recorrer la vista previamente filtrada
Dim a As Integer
For a = 0 To oVista.Count - 1
' agrego el nodo en el tercer nivel
nodo.Nodes.Add(Trim(oVista.Item(a).Row("CODIGO_FOR M")))
Next
' expando todos los nodos de árbol secundario
nodo.ExpandAll()
Next
' habilita la actualización en pantalla del control TreeView
TVMenuAsignacion.EndUpdate()

' modifico la propiedad AllowDrop a True para poder realizar Drag and Drop
TVMenuAsignacion.AllowDrop = True

' modifico la propiedad Sorted a True para que los nodos estén ordenados
TVMenuAsignacion.Sorted = True

'Asignandole una Imagen al TreeView
Me.TVMenuAsignacion.ImageList = Me.ImagenTreeViewAsignacionPerfilesEspeciales
Me.TVMenuAsignacion.ImageIndex = 1
nodo.ImageIndex = 0
Me.TVMenuAsignacion.SelectedNode = Me.TVMenuAsignacion.Nodes(0)

End Sub