Visual Basic.NET - ComboBox y TextBox

Muy Buenas Noches, Tengo un problema con este codigo:

Private Sub cbCategoria_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbCategoria.SelectedIndexChanged


Select Case cbCategoria.SelectedItem
Case "Sour"
Try
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=D:\Recursos Multimedia\Proyectos\thatai_db.mdb"
con.Open()
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter("Select nombre, precio from productos where id_categoria=1", con)
da.Fill(dt)
Dim myRow As DataRow
cbProducto.Items.Clear()
For Each myRow In dt.Rows
cbProducto.Items.Add(myRow.Item(0))
Next
con.Close()
Catch ex As Exception
'MessageBox.Show(ex.ToString)
MsgBox("No se Pueden Obtener los Productos")
End Try
Case "Cañas"
Try
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=D:\Recursos Multimedia\Proyectos\thatai_db.mdb"
con.Open()
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter("Select nombre, precio from productos where id_categoria=2", con)
da.Fill(dt)
Dim myRow As DataRow
cbProducto.Items.Clear()
For Each myRow In dt.Rows
cbProducto.Items.Add(myRow.Item(0))
Next
con.Close()
Catch ex As Exception
'MessageBox.Show(ex.ToString)
MsgBox("No se Pueden Obtener los Productos")
End Try
End Select
End Sub


Es una pequeña aplicación para listar productos y categorías, pero como ven en las consultas también quiero listar los precios de cada producto a un textbox, ojo que cada producto tiene un precio diferente, alguna idea de como puedo hacer ingresar el precio de cada producto seleccionado en el comboBox dentro de un textbox siguiendo el codigo que esta ahi arriba?

De Antemano muchas Gracias espero su ayuda

Vamos a ver,
Yo lo no lo haría así, pero bueno, si es tu capricho, y digo yo porque no utilizas unas matrices para guardar los resultados y finalmente los formateas y lo guardas en el ComboBox y TextBox segun tus necesidades.

Perdona pero lo expuesto soño carga el combo Producto

Create un como oculto (cbPrecio) y guarda el precio leido.

OJO EL COMBO cbProducto DEBE TENER LA CLAUSULA Sorted = False. Si quieres guardalos ordenados alfabeticamente ordenalos en el query para que los precios se correspondan con os productos.

Luego cuando selecciones un dato en cbProducto haz

txtPrecio.text = cbPrecio.SelectedItem(cbProducto.SelectedIndex) o bien

cbPrecio.SelectedIndex = cbProducto.SelectedINdex
txtPrecio.Text = cbPrecio.SelectedText

Por eso no se debe ordenar el combo con la clausula Sorted = True, ya que de hacerlo no se corresponderian los precios con los productos