You are right - the TreeView control checks for node keys to be unique. Try to solve problem that way:

Set nodX = myTree.Nodes.Add(, , "_" & Trim(Str(rsNav!na_Primary)) & "_" & strGroup, strName, strGraphic)

and

Set nodX = myTree.Nodes.Add(strGroup, tvwChild, "_" & Trim(Str(rsNav!na_Primary)) & "_" & strName, strName, strGraphic)

respectively.

This will makes node keys unique (by adding "__" before every key).

Plamen Ivanov
MCSD .NET Early Achiever and MCAD .NET Charter Member (VB .NET/SQL Server 2000)
MCSD (VB 6.0/SQL Server 2000)
VB (.NET) - what other language do you need in the whole Universe?...