Algo de ListView y cajas de texto con DAO.

[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