Visual Basic - Algo Complicado

Gracias por leer este mensaje, estoy trabajando con el TreeView y me doy de topes, no doy con bola, ojala alguno de ustedes pueda orientarme, aqui esta el codigo completo :

Option Explicit
Dim rsNew As ADODB.Recordset
Dim rsEleccion As ADODB.Recordset

Private Sub btnAgregar_Click()
frmExamen.Hide
frmButon.Show
End Sub

Private Sub btnEditar_Click()
frmExamen.Hide
frmButon.Show
End Sub

Private Sub btnExit_Click()
Beep
End
End Sub

Private Sub btnver_Click()
Beep
treeExamen.Nodes.Add , , "nid0", "Datos del Examen", "Cerrado"
treeExamen.Visible = True
End Sub

Private Sub Form_Load()


Set rsNew = New ADODB.Recordset
Set rsNew.ActiveConnection = conConecta
rsNew.CursorLocation = adUseClient
rsNew.CursorType = adOpenKeyset
rsNew.LockType = adLockOptimistic
rsNew.Open "Select * From catExamenPsic "
Set cboUno.DataSource = rsNew


Do While Not rsNew.EOF

cboUno.AddItem rsNew("NombreReq")
cboUno.ItemData(cboUno.NewIndex) = rsNew("IdExPsic")
rsNew.MoveNext

Loop

End Sub

Private Sub Form_Unload(Cancel As Integer)
Beep
End
End Sub

Private Sub treeExamen_DblClick()

Set rsEleccion = New AD