pasar el valor de un combobox a un textbox vb.net

[tiger015]

pureba esto:

Private Sub cargaArticulo()
Dim dsart As New DataSet
Dim adapterart As MySqlDataAdapter
adapterart = New MySqlDataAdapter("Select clavart,nomart from articulo Order by clavart", conectar)


//llena solo la tabla del dataset no el dataset completo
adapterart.Fill(dsart.Tables(0))
//


artped.DataSource = dsart.Tables(0)
artped.DisplayMember = "nomart"
artped.ValueMember = "clavart"
'--------------------------------------------
artped.SelectedIndex = -1
artped.Text = "Seleccione el articulo..!!!"
conectar.Close()
End Sub