Algo de ListView y cajas de texto con DAO.

[carlunchos]

Buenas Sras, Sres; tengo lo siguiente:

'En seccion General
Option Explicit
Dim db As Database
Dim rst As Recordset
Private Const sPathBase = "D:\Pruebas_Visual\x3\agenda.mdb"

y en el Form Load:

Set db = OpenDatabase(sPathBase)
Set rst = db.OpenRecordset("Select * from Tabla1")
With rst
Do While Not rst.EOF
List1.AddItem .Fields("Usuario")
.MoveNext
Loop

End With

como se ve, los datos del campo Usuarios se cargan en el List1. La tabla1 consta de 3 campos (Usuario,Empresa y Telefono). Tengo ademas en el formulario 2 cajas de texto.
La idea es que al hacer click en un item de list1 en cada caja de texto se carguen los datos de Empresa y Telefono correspondiente al item clickado. Se entiende?.

saludos.

[gustavoalegre]

Hola. A ver prueba esto:

Private Sub List1_Click()
rst.Close
Set rst = db.OpenRecordset("SELECT * FROM Tabla1 WHERE Usuario='" & List1.Text & "'")
rst.MoveFirst
With rst
Text1.Text = .Fields("Empresa")
Text2.Text = .Fields("Telefono")
End With
End Sub