Visual Basic.NET - COMBOS

HOLA NECESITO AYUDA TENGO DOS CAMPOS CONCATENADOS EN UN COMBO DE VB .NET (CODIGO" + "NOMBRE) PERO AL MOMENTO DE SELECCIONAR UN ITEM, ME DEBE LLAMAR UN CAMPO DE VALOR UNITARIO CORRESPONDIENTE AL ITEM SELECCIONADO Y COLOCARLO EN UNA CAJA DE TEXTO

QUE DEBO HACER

GRACIAS

En el Value del item, asigna el valor que quieres que te aparesca en el TextBox.

Me.ddlEjemplo.Items.Add(New ListItem("Código + Nombre"," y aquí pones lo que quieras que aparesca en el TextBox, ya sea el puro código o el puro nombre"))

Y accedes al Value del Combo

Me.TextBox.Text = Me.ddlEjemplo.SelectedItem.Value

el valor unitario lo tengo en la base de datos pero cuando seleccion el item no llama el valor que pertenece a ese registro

Necesito que me des más detallado tu problema para poderte ayudar mejor y de preferencia mándame el código.

HOLA ESTA ES LA CONEXION A LA BASE DE DATOS LA TENGO EN UNA CLASE.

public Function consultarhonorarios() As DataSet
Dim CNCONEXION As SqlClient.SqlConnection
Dim objdato As SqlClient.SqlDataAdapter
Dim objdatoset As New DataSet

Dim STRSQL As String
Try
CNCONEXION = New SqlClient.SqlConnection("integrated security=SSPI;data source=COMPUTADOR7;persist security info=False;initial catalog=CONSULTORIO")
CNCONEXION.Open()
STRSQL = "select*, nombre_honorarios,VALOR_HONORARIOS from vista_honorarios"
objdato = New SqlClient.SqlDataAdapter(STRSQL, CNCONEXION)
objdato.Fill(objdatoset)
STRCODIGO_HONORARIOS = objdatoset.Tables(0).Rows(0).Item("CODIGO_HONORARIOS")
STRVALOR_UNITARIO = objdatoset.Tables(0).Rows(1).Item("valor_honorarios")
Return objdatoset

Catch ex As Exception
Throw ex
Finally
CNCONEXION.Close()
End Try
End Function

ESTE ES OPCION DE LLENAR LOS COMBO, PERO NECESITO LLENAR EL VALOR HONORARIOS DE EL ITEM QUE SELECCIONE

Private Sub frm_tratamientos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'*******************************************************************************
'INFORMACION HONORARIOS
Dim objHONORARIOS As New CLSCUENTA_HONORARIOS
Dim objdatosset As New DataSet


Try
cbbcodigo_honorarios.DataSource = objHONORARIOS.consultarhonorarios.Tables(0)
cbbcodigo_honorarios.DisplayMember = "NOMBRE_HONORARIOS"
cbbcodigo_honorarios.ValueMember = "codigo_honorarios"


' Me.TXTVALOR_UNITARIO.Text = Me.cbbcodigo_honorarios.SelectedText. "valor_honorarios"

Catch ex As Exception
MessageBox.Show("Error al llenar en la consulta")
End Try