Ok, slowly, but surely I am getting there

I have added the following code, and I am almost there:
vb Code:
  1. If strNodeGrandChild <> rs.Fields("tvwGrandChildNodes").Value & "" Then
  2.             'if Fields is not empty - add new grandchild node
  3.             strNodeGrandChild = rs.Fields("tvwGrandChildNodes").Value & ""
  4.             .Nodes.Add strNodeParent, strNodeChild, , strNodeGrandChild, "Leaf"
  5.         End If

strNodeParent = VB Code
strNodeChild = Functions
strNodeGrandChild = Change Text Case

So all values are as expected, but I am getting the error:
Element not found
on the .Nodes.Add line.

I have tried using tvwLast, tvwNext
but these don't work, or at least not the way I am using them.

I know this is the problem but I'm not sure what to change.