TreeView

Jag försöker att visa dom titlar som finns i ett visst album.
Genom att klicka i en lista(list1) så vill jag ha fram alla låtar som finns i samma album som den jag har klickat på.
Jag kommer nästan fram, men den tar bara fram en titel, den som jag har klickat på. Så här ser koden ut:

 

   Dim BitmapPath As String
   BitmapPath = "C:\Inetpub\wwwroot\Hemsidor\saw\Bild\arrow.gif" 
Set imgX = ImageList1.ListImages.Add(, , LoadPicture(BitmapPath))
   TreeView1.ImageList = ImageList1
      
   Set mittRS1 = minDB.OpenRecordset("SELECT t_Album.Album, t_SongTitlar.songtitel, 
t_Kategori.Kategori "
 & _   " FROM t_Kategori INNER JOIN (t_Album 
INNER JOIN t_SongTitlar ON t_Album.CD_ID = 
t_SongTitlar.Album) ON t_Kategori.Kat_ID = t_SongTitlar.Kategori " & _
   " Where t_SongTitlar.songtitel 
= '" & List1.Text & "'  
ORDER BY t_Album.Album", dbOpenDynaset)
   
  
   Set mittRS2 = minDB.OpenRecordset("SELECT 
t_Album.Album, 
t_SongTitlar.songtitel, t_Kategori.Kategori " & _
   " FROM t_Kategori INNER JOIN (t_Album INNER JOIN t_SongTitlar ON t_Album.CD_ID = 
t_SongTitlar.Album) 
ON  t_Kategori.Kat_ID = t_SongTitlar.Kategori " & _
   " Where t_SongTitlar.songtitel = '" & mittRS1!songtitel 
& "'  ORDER BY t_Album.Album", dbOpenDynaset)

  Set nodX = TreeView1.Nodes.Add(, , , " CD-Album: "
 & mittRS1!Album, 1)
     
     Do While Not mittRS2.EOF
        
            Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Track: " 
& mittRS1!songtitel & " - " & mittRS1!kategori, 1)
       
  nodX.EnsureVisible
  mittRS2.MoveNext
Loop

Några förslag?? :i