Puedes sumar los dos campos y sumarle por medio una serie de espacios,es decir,rellenar el DropDownList de esta manera
Cita: Dim oTabla As DataTable
oTabla = oDataSet.Tables("Articulos")
Dim oFila As DataRow
For Each oFila In oTabla.RowsMe.DropDownList1.Items.Add(oFila.Item(" Articulo") & _
" ----------- " & oFila.Item("Precio")
Next
Salu2