Código:
A que se debe esto? tvw_marca.Nodes.Clear Marca = "" While Not rtmp.EOF If Marca <> rtmp("MARCA") Then tvw_marca.Nodes.Add , , rtmp("MARCA"), rtmp("MARCA") End If Do tvw_marca.Nodes.Add rtmp("MARCA"), tvwChild, rtmp("MODELO"), rtmp("MODELO") Marca = rtmp("MARCA") rtmp.MoveNext If rtmp.EOF Then Exit Do Loop While Marca = rtmp("MARCA") Wend