I'm new to the treeview control and need some help. I have tables I use for
my
home video library. tblMovieType contains 2 fields MovieTypeID (number) and
MovieType (text) The table contains 14 records - Action, Drama etc. tblDvd
Contains several fields of which DvdMovieTitle (text) and  MovieTypeID
(number)
are pertinent. I've created a One to Many relationship with the MovieTypeID
fields.
I'm attempting to use the treeview control to display the MovieType field as
the top
node and the branch to display the movie titles (DvdMovieTitle) that are
assigned
to each movie type. The code I pasted is copied from "Access 2000 Power
Programming"
I'm using Access 2003. I don't get any errors but, the code displays the
movie type
in the treeview correctly but I can't get the branch to display the titles.
The only titles
that are displayed are the first 2 records in the recordset which are
displayed under
the correct movie type.
Any help will be extremely appreciated.

James

Private Sub Form_Load()

Dim objCurrNode As Node

Dim dbLocal As Database
Dim rsType As DAO.Recordset, rsTitle As DAO.Recordset

'...Ooen the recordset
Set dbLocal = CurrentDb()
Set rsType = dbLocal.OpenRecordset("tblDvdMovieType", dbOpenDynaset)
Set rsTitle = dbLocal.OpenRecordset("tblDvd", dbOpenDynaset)

'...loop through movie types
Do Until rsType.EOF

'...Add a top node (Type)
Set objCurrNode = Me!axTreeView.Nodes.Add(, , "MovieType" &
CStr(rsType!DvdMovieTypeID), rsType!DvdMovieType, 1)

'objCurrNode.ExpandedImage = 2

If Not rsTitle.EOF Then

Do While rsTitle!DvdMovieTypeID = rsType!DvdMovieTypeID

'...Add a branch to the current top node
Set objCurrNode = Me!axTreeView.Nodes.Add("MovieType" &
CStr(rsType!DvdMovieTypeID), tvwChild, , rsTitle!DvdMovieTitle, 3)

rsTitle.MoveNext

    If rsTitle.EOF Then
       Exit Do
    End If

   Loop

   End If
   rsType.MoveNext

Loop

Me!axTreeView.Refresh

End Sub