Questa è la form



questo è il codice:

Private Sub lst_prod_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst_prod.SelectedIndexChanged

Dim cmd_select As New OleDbCommand("select * from prodotti", conn)
oda.SelectCommand = cmd_select

'riempo la tabella clienti
oda.Fill(ds, "prodotti")
dt_cli = ds.Tables("prodotti")

'dichiato la pk per la ricerca
Dim pk_prod(0) As DataColumn
pk_prod(0) = dt_prod.Columns("id")
dt_prod.PrimaryKey = pk_prod
dr_prod = dt_prod.Rows.Find(array_id_prod(lst_prod.SelectedI ndex))

'riempo le textbox
txt13.Text = dr_prod("descrizione")
txt14.Text = dr_prod("prezzo")
pic_box.image = dr_prod("foto")

End Sub

Il DB è fatto in access ed il campo foto è un oggetto OLE.