sincronizar list1 con text1 con bd

[PACO_TORG]

hola a todos de nuevo,.... hay muchas dudas.. soy principiante

con este codigo enlace un listbox con una bd y se cargan los productos; lo que quiero es que cuando haga click en el listbox en una caja de texto me muestre el precio del producto seleccionado,, esto esta facil para ustedes...
o no me digan que no sepuede hacer..


Private Sub Form_Load()
Dim MiConexion As ADODB.Connection
Dim MiRecordSet As ADODB.Recordset
Ruta = App.Path & "\INVENTARIO.mdb"
Set MiConexion = New ADODB.Connection
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False"
MiConexion.CursorLocation = adUseClient
MiConexion.Open

Set MiRecordSet = New ADODB.Recordset

MiRecordSet.Open "select * from productos order by producto", MiConexion, adOpenDynamic, adLockOptimistic

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False"
Adodc1.CommandType = 8
Adodc1.RecordSource = "select * from productos order by producto"
Adodc1.Refresh

With Adodc1

Do
List1.AddItem .Recordset.Fields(0).Value
.Recordset.MoveNext

Loop Until .Recordset.EOF
End With
'

[ReViJa]

Prueba así...

Código:

Do
   List1.AddItem .Recordset.Fields(0).Value
   List1.ItemData(List1.NewIndex) = Recordset.Fields(x).Value
   .Recordset.MoveNext
Loop Until .Recordset.EOF

En Recordset.Fields(x).Value me refiero al ID.

[Cesar2990]

Te recomiendo q uses busquedas dinamicas para q sea mas facil y no tener q buscara en un listbox.

Saludos