Bonjour,
VB d'access, tu veux dire VBA ??? comme Visual Basic For Application ??
sinon tu utilises ADO ou DAO ?
tu mets le code dans l'événement Click de la liste déroulante
rq= "Select * From Table Where Champ='" & taliste.text & "'"
....
RS.open ou Rs.openrecordset (rq) ' sela dépend de ta méthode DAO ou ADO
ensuite
if rs.recordcount > 0 then Text1.Text = rs!Champàafficher
Sinon donnes plus de précisions.
@+
MSN
YAHOO 
Membre du club
CodeS-SourceS