ENLAZAR LIST1 Y A LA VEZ TEXT1 CON BD

tema enviado por Bombon en Visual Basic 6.0
tema iniciado el 28/04/2007

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,

alguien me podria ayudar..

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