codice:
Private Sub cmbProdotto_AfterUpdate()
Me.txtPrezzo.Value = DLookup("prezzo", "nome_tabella", "prodotto=" & Chr(34) & Me.cmbProdotto.Value & Chr(34))
End Sub
All'evento dopo aggiornamento della combobox associ la funzione dlookup. L'esempio mi sembra chiaro. Se hai qualche dubbio documentati sullla sintassi della funzione

http://www.techonthenet.com/access/f...in/dlookup.php