Visual Basic - TreeView

Que tal amigos,
La verdad es que no puedo comprender bien como funciona este control, a ver si alguien me puede dar una manito.... tengo tres tablas: PABELLON, SECTOR, HABITACION, lo que deseo es armar jerárquicamente :
PABELLON
SECTOR
HABITACION

Directamente desde las tablas... mi código es el siguiente:

Public Sub IniciarConexion()
On Error Resume Next

Set cn = New ADODB.Connection
With cn
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb" & ";Persist Security Info=False"
End With

Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient

.Open "select * From PABELLON", cn, adOpenStatic, adLockReadOnly

End With

While Not rs.EOF

TreeView1.Nodes.Add , , "_" & CStr(rs!NroPabellon), rs!descripcion, CStr(rs!descripcion)
rs.MoveNext
Wend

rs.Close

rs.Open "select * From SECTOR", cn, adOpenStatic, adLockReadOnly


While Not rs.EOF

TreeView1.Nodes.Add "_" & CStr(rs!NroPabellon), tvwChild, , rs!Sector, "item"
rs.MoveNext
Wend

rs.Close

rs.Open "select * From HABITACION", cn, adOpenStatic, adLockReadOnly

While Not rs.EOF

TreeView1.Nodes.Add "_" & CStr(rs!IdSector), tvwChild, , rs!NumHabit, "item1"

rs.MoveNext
Wend

If rs.State = adStateOpen Then
rs.Close
End If
Set rs = Nothing

End Sub

Con esto logro esto

PABELLON
SECTOR.... Pero no sé por qué no logro que luego jerárquicamente me coloque las habitaciones de acuerdo al sector, me las coloca al mismo nivel de sector... y todas corridas sin discrimar el sector ( es decir cada habitación dentro de su sector).

Estoy seguro que no debe ser algo muy grosero... pero no logro entender qué estoy haciendo mal!!!!

Gracias!

Gracias a todos de todas formas!!... al final lo resolví así, por si a alguno le sirve...