TreeView1?????????

[principefreddy]

he guardado datos en una base de datos. pero el TreeView1 no me los muestra cuando los guardo de la forma normal, sino cuando cuado agrego registros desde access directamente. alguien sabe por que. ????

Option Explicit
Private mNombre As String
Private mMod1 As Boolean
Private mContra As Long
Private mMod2 As Boolean
Private mTipo As Long
Private mMod3 As Boolean

Private Sub Cargar_Usuarios()
Dim nod As Node
Dim iCont As Long
Dim rs As New ADODB.Recordset
Dim sIcon As String
tv.Nodes.Clear

Set nod = tv.Nodes.Add(, , "maina", "Administradores", "folder", "folder")
nod.Expanded = True
Set nod = tv.Nodes.Add(, , "mainb", "Usuarios comunes", "folder", "folder")
nod.Expanded = True

rs.Open "SELECT * FROM usuarios", nc, adOpenDynamic, adLockOptimistic
While Not rs.EOF
iCont = iCont + 1
If (rs!usu_tipo = 0) Then
'es administrador
Set nod = tv.Nodes.Add("maina", tvwChild, "adm" & iCont, rs!usu_nombre, "adm", "adm")
ElseIf (rs!usu_tipo = 1) Then
'es usuarios comun
Set nod = tv.Nodes.Add("mainb", tvwChild, "nor" & iCont, rs!usu_nombre, "use", "use")
End If
nod.Tag = rs!usu_password
rs.MoveNext
DoEvents
Wend
rs.Close
Set rs = Nothing
End Sub