Visual Basic - Desde un combobox pasar datos a un texbox de la misma tabla

Sub llenarComboBox1(ByVal cb As ComboBox)

    Try

        enunciado = New SqlCommand("Select name_typeprinter from tipoimpresoras", conexion)

        respuesta = enunciado.ExecuteReader

        While respuesta.Read

            cb.Items.Add(respuesta.Item("name_typeprinter"))

        End While

        respuesta.Close()

    Catch ex As Exception

    End Try

End Sub

Sub llenacomboParametro(ByVal cmb As ComboBox, ByVal padre As Integer)

    'Lectura General directo a la base de Datos

    Dim connetionstring As String

    Dim conn As OleDbConnection

    Dim da As OleDbDataAdapter

    Dim dt As DataTable

    Dim SSQL As String

    SSQL = "Select Nombre,Codigo from Catalogo where CodigoPadre = " & padre

    'string conecion

    connetionstring = (VstringConexion)

    'instancia la conexion

    conn = New OleDbConnection(connetionstring)

    'prepara el comando

    da = New OleDbDataAdapter(SSQL, conn)

    'prepara el data table 

    dt = New DataTable

    'llena el data table con el resultado de data adapter

    da.Fill(dt)

    'mapea el grid de memoria

    cmb.DataSource = dt

    cmb.DisplayMember = "Nombre"

    cmb.ValueMember = "Codigo"

    'refresca la informacion

    cmb.Refresh()

End Sub