Como pasar los datos de un list a un text

[walfaro]

pues fijate que yo tengo una agenda y uso TreeView donde me muestra los nombres de los contactos y al darle clic al contacto deseado me muestra todos los datos en 12 text

la base que tengo esta en access, solo agrega un TreeView y un ImageList1 para tus iconos y lo modificas segun a tu estilo...

copia este codigo a tu form.....

si necesitas alguna consulta me lo puedes hacer llegar o dejame tu mail...

Option Explicit
Dim flagNuevoRegistro As Boolean
Dim rst As ADODB.Recordset
Dim cn As ADODB.Connection

Private Sub Form_Load()

Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset

With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\TU BASE DE DATOS.mdb;Persist Security Info=False"
.CursorLocation = adUseClient
.Open


End With

With rst
.CursorLocation = adUseClient
.Open "Select * from NOMBRE DE TU TABBLA", cn, adOpenStatic, adLockOptimistic
End With

Dim txt As Control
For Each txt In Me.Controls
If TypeOf txt Is TextBox Then
Set txt.DataSource = rst
End If
Next
Set Text2.DataSource = rst
Text2.DataField = "nombres"
Set Text3.DataSource = rst
Text3.DataField = "Telefono1"
Set Text4.DataSource = rst
Text4.DataField = "Extension1"
Set Text5.DataSource = rst
Text5.DataField = "Telefono2"
Set Text6.DataSource = rst
Text6.DataField = "Extension2"
Set Text7.DataSource = rst
Text7.DataField = "Celular1"
Set Text8.DataSource = rst
Text8.DataField = "Celular2"
Set Text9.DataSource = rst
Text9.DataField = "Email"
Set Text10.DataSource = rst
Text10.DataField = "Empresa"
Set Text11.DataSource = rst
Text11.DataField = "Direccion"
Set Text12.DataSource = rst
Text12.DataField = "Notas"

Call Cargar_Treeview

End Sub

Private Sub Cargar_Treeview()
Dim i As Long
Dim nodo As Node
rst.MoveFirst
With TreeView1.Nodes
.Clear
For i = 1 To rst.RecordCount
Set nodo = .Add(, , , rst!Nombres, 1)
rst.MoveNext
Next i
End With
rst.MoveFirst
End Sub


Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
If flagNuevoRegistro = True Then
Exit Sub
End If

rst.MoveFirst
While Not rst.EOF And rst!Nombres <> Node
rst.MoveNext
Wend
End Sub