No sé si te he entendido muy bien, pero parecer ser que quieres crear un dropdown list en el que te aparezca código, nombre y precio, no?
De ser así, tienes dos opciones: o creas tu propio dropdown list modificado para que te permita esto o bien haces algo como esto:

Private Sub cargarprod()
        Dim prod As New productoBS
        lstprod.DataSource = prod.cargaComboProd
        lstprod.DataValueField = "CODE"
        lstprod.DataTextField = "NOMBRE | PRECIO"
        lstprod.DataBind()
End Sub

Y si en algún momento te es necesario utilizar el nombre y el precio usas algo como esto (que no estoy seguro de que funciona al 100% porque no lo recuerdo bien y no lo puedo probar ahora, pero la idea es más o menos la misma):

Dim textfield as String[]=String.Split(lstprod.DataTextField," | ")
Dim nombre as String=textfield[0]
Dim precia as String=textfield[1]

Espero que resuelva tus dudas