For each No funciona TreeView

[Giufantasy]

Gracias por la yuda, le hice los cambios que me dijistes y no pasa nada

Se salta el ForEach, que es esta parte del codigo

For Each Registro 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 = "EMPRESA = '" & Registro("EMPRESA") + "'"

' 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