SoloCodigo

hola, prueba asi:
- En el select puedes sacar tambien el campo No_credencial (en mi codigo es el campo id)
- asigna ValueMember y el DisplayMember al combobox
- en el boton buscar obtines el valor del  No_credencial desde el mismo combobox (Me.cselecciondelcliente.SelectedValue)


Imports MySql.Data.MySqlClient
Imports System.Data

Public Class Form2

    Dim con As New MySqlConnection()
    Dim da As New MySqlDataAdapter()
    Dim ds As New DataSet()
    Dim dr As DataRow

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim I As Integer
        con = New MySqlConnection("datasource=localhost;username=root;password=root;database=prueba")
        da = New MySqlDataAdapter("select concat(apellido ,' ',nombre) as na,id from tableprueba order by apellido asc", con)
        da.Fill(ds, "tableprueba")
        ' If ds.Tables("tableprueba").Rows.Count > 0 Then
        'For I = 0 To ds.Tables("tableprueba").Rows.Count - 1
        'dr = ds.Tables("tableprueba").Rows(I)
        Me.cselecciondelcliente.DataSource = ds.Tables("tableprueba").DefaultView
        cselecciondelcliente.ValueMember = "id" ' en lugar de id pones No_credencial
        cselecciondelcliente.DisplayMember = "na"
        'cselecciondelcliente.Items.Add(dr("na"))
        'Next
        'End If
    End Sub

    Private Sub btn_value_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_value.Click
        Me.txt_value.Text = Me.cselecciondelcliente.SelectedValue
    End Sub
End Class


Saludos

Compañero plenin, estuve estudiando y poniendo a prueba tu código y realmente funciona, pero solo tengo una pequeña observación, cuando inicia el formulario de las búsquedas me aparece por default en el combo el nombre de un usuario, por estética, no debería de aparecer, estuve tratando de hacer que fuera así y no pude, por lo que compilé tu código con el que un servidor tenía y lo pude lograr, te comparto a tí y a los usuarios del foro el resultado final y esto es lo que me mostro, de cualquier manera te agradezco mucho tu ayuda porque sin ella no lo ubiese logrado, ya que a partir de tu código lo pude lograr, espero que si puedes en el código que tu me mandastes puedas ayudarme a resolver la duda que tuve para así aprender ha tener otra solución diferente y con menos código, gracias y seguimos colaborando.

Imports MySql.Data.MySqlClient
Imports System.Data

Public Class busquedadeclientes
    Dim con As New MySqlConnection()
    Dim da As New MySqlDataAdapter()
    Dim ds As New DataSet()
    Dim dr As DataRow

    Private Sub busquedadeclientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim I As Integer
        con = New MySqlConnection("server=xxx;database=xxx;uid=xxx;pwd=xxx;")
        da = New MySqlDataAdapter("select concat(Apellido_paterno,' ', Apellido_materno,' ', Nombres) as na, No_credencial from registrodeclientes order by Apellido_paterno asc;", con)
        da.Fill(ds, "registrodeclientes")
        If ds.Tables("registrodeclientes").Rows.Count > 0 Then
            For I = 0 To ds.Tables("registrodeclientes").Rows.Count - 1
                dr = ds.Tables("registrodeclientes").Rows(I)
                Me.cselecciondelcliente.Text = ""
                Me.cselecciondelcliente.DataSource = ds.Tables("registrodeclientes").DefaultView
                cselecciondelcliente.ValueMember = "No_credencial"
                cselecciondelcliente.DisplayMember = "na"
             Next
        End If
    End Sub

    Private Sub bbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbuscar.Click
        Me.tnocredencial.Text = Me.cselecciondelcliente.SelectedValue
    End Sub

    Private Sub bsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsalir.Click
        Me.Close()
    End Sub
End Class

Hola dlplenin, amigos del foro, te agradezco dlplenin por ese nuevo código que me mandastes, se ve mejor el estilo, lo probé y definitivamente lo voy a dejar así, gracias por ayudarme, seguimos en contacto compareos, saludos.