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.