Visual Basic - Algo Complicado

Estoy trabajando con el TreeView y tengo un problemilla y no entiendo por que, espero puedas ayudarme, aqui pongo el codigo para que lo vean y si detectan algo raro me lo comenten por favor :

antes que nada MIL GRACIAS de ANTEMANO

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%