Resolved Another Node in childnode

[darkcat02]

help,

i need to have another childnode in a childnode...

for example(exact results needed)

book1
- chapter1
- chapter1:topicnumber1
- chapter1:topicnumber2
- chapter2
- topic1

but i can only show one childnode and i need to distinct those chapter so it wont repeat like this

book1
- chapter1
- chapter1
- chapter2

here is my code:

Private Sub _PopulateBible()

TreeViewBible.Nodes.Clear()

'// Declare Data Objects
Dim dbFile As String
dbFile = strBibleDataPath & strBibleFilename
'
Dim cnnBL As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & dbFile & ";Mode=Read;Jet OLEDBatabase Password=" & strBiblePw(strBibleID))

Dim dsBL As New DataSet

Dim cmdBL As New OleDb.OleDbCommand
Dim cmdBC As New OleDb.OleDbCommand

Dim cmdBibleList As String = ""
cmdBibleList = "SELECT BookStdName, BookNum FROM BibleBooks"
Dim cmdBibleChapter As String = ""
cmdBibleChapter = "SELECT Chapter, BookNum, Verse FROM BibleVerses"

Dim daBL As New OleDb.OleDbDataAdapter(cmdBibleList, cnnBL)
Dim daBC As New OleDb.OleDbDataAdapter(cmdBibleChapter, cnnBL)

daBL.Fill(dsBL, "dtBibleBooks")
daBC.Fill(dsBL, "dtBibleChapter")

cnnBL.Close()

dsBL.Relations.Add("BooksToChapter", dsBL.Tables("dtBibleBooks").Columns("BookNum"), dsBL.Tables("dtBibleChapter").Columns("BookNum"))

Dim nodeBooks, nodeChapter, nodeChapterVerse As TreeNode
Dim rowBooks, rowChapter, rowChapterVerse As DataRow

For Each rowBooks In dsBL.Tables("dtBibleBooks").Rows
nodeBooks = New TreeNode
nodeBooks.Text = rowBooks("BookStdName")
nodeBooks.Tag = rowBooks("BookNum")
TreeViewBible.Nodes.Add(nodeBooks)
For Each rowChapter In rowBooks.GetChildRows("BooksToChapter")
nodeChapter = New TreeNode
nodeChapter.Text = rowChapter("Chapter")
nodeChapter.Tag = rowChapter("BookNum")
nodeBooks.Nodes.Add(nodeChapter)

Added Code For Another ChildNode
nodeChapterVerse = New TreeNode
nodeChapterVerse.Text = rowChapter("Verse")
nodeChapterVerse.Tag = rowChapter("Chapter")
nodeChapter.Nodes.Add(nodeChapterVerse)
Next
Next

dsBL.Dispose()
daBL.Dispose()
daBC.Dispose()
cnnBL.Close()
cnnBL.Dispose()
End Sub

any ideas?