Solucionado!
Al parecer VB6 no acepta la asignacion de la 'llave padre' desde un
recordset cuando se añade un 'nodo hijo'.
De esta manera funciona mi codigo:
Código:
tvw_marca.Nodes.Clear
rtmp.MoveFirst
While Not rtmp.EOF
tvw_marca.Nodes.Add , , rtmp("MARCA"), rtmp("MARCA")
ID_Marca = rtmp("MARCA")
Do
tvw_marca.Nodes.Add ID_Marca, tvwChild, rtmp("MODELO"), rtmp("MODELO")
Marca = rtmp("MARCA")
rtmp.MoveNext
If rtmp.EOF Then Exit Do
Loop While Marca = rtmp("MARCA")
Wend
rtmp.Close
Set rtmp = Nothing
Gracias Txoco por tu ayuda!