Need help with my TreeView!!!

[Patrick]

HI!!
I'm recently been following the thread about the Tree
view. and I'm trying to understand how it works.
But I'm Stuck!!
The following code is supose to give me 3 nodes(last one
being clients name).Under that node, I want the clients
name to be devided into alphabetical nodes. A,B,C, etc..

So far this code allows me to do just that, but the
problem is that all the data will be stored in the first
letter it finds and then, the other letters will be empty..
Can anyone figured-out why my code is doing that,I can't
figure this out...
Thanks in advance for any help,
PAtrick

Code:
Dim dbs As Database
Dim mNode As Node
Dim rsPublishers As Recordset
Dim NewLetter, OldLetter As String

Set dbs = CurrentDb
Set rsPublishers = dbs.OpenRecordset("SELECT * FROM
clients ORDER BY clientName")

' first Node.
Set mNode = treeEx.Nodes.Add() ' Database path.
mNode.Text = dbs.Name

' Second Node.
Set mNode = treeEx.Nodes.Add(1, tvwChild) ' tables name.
mNode.Text = "clients table"
' Third Node.
Set mNode = treeEx.Nodes.Add(2, tvwChild) ' Clients Name
column.
mNode.Text = "clients Name"

' Children of third node.
While Not rsPublishers.EOF
NewLetter = Left(rsPublishers!ClientName, 1)

If OldLetter = NewLetter Then
Set mNode = treeEx.Nodes.Add(4, tvwChild)
mNode.Text = rsPublishers!ClientName
Else
Set mNode = treeEx.Nodes.Add(3, tvwChild)
mNode.Text = NewLetter
Set mNode = treeEx.Nodes.Add(4, tvwChild)
mNode.Text = rsPublishers!ClientName

End If


OldLetter = Left(rsPublishers!ClientName, 1)
rsPublishers.MoveNext
Wend

 

[Patrick]

Never mind, I figured-it out...