Combobox en vb6 con base de datos de access

Hola, soy nuevo en esto y quiero hacer una aplicación que; tengo una base de datos en access que posee los campos producto, costo, precio y cargue un combo1 con los productos almacenados en la bd (gestión), pero al seleccionar un producto necesito que me muestre el costo y precio en 2 label como lo puedo hacer. Dejo el código que utilice para cargar el combo1

Private Sub Form_Load()
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset
Set BD = New ADODB.Connection
Set rs = New ADODB.Recordset
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & "d:\gestion\Gestion.mdb"
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM partes", BD, adOpenStatic, adLockOptimistic
With rs
Do Until .EOF
Combo1.AddItem .Fields(1)
.MoveNext
Loop
End With
End Sub