Cita:
Iniciado por Avellaneda 
Hola,
hay varias formas. Aquí te pongo una que muestra el dato en un control TextBox al hacer click en el combo:
Data1.Recordset.FindFirst "producto ='" & Combo1.Text & "'"
Text1.Text = pre_uni 
Gracias Avellaneda, tu codigo funciona muy bien, y para llenar un combo con el mismo data estube usando este codigo:
combo3.AddItem DataP.Recordset.Fields("producto").Value
DataP.Recordset.MoveFirst
y no llena el combo, donde esta el error, o hay que usar un for