LLenar y seleccionar registro en combobox en vb.net

Estimados amigos muy buenas tardes quisiera que me ayuden a poder mostrar el nombre del tipo de documento de un cliente registrado en una base de datos.

Con los siguientes código quisiera lograrlo pero hasta el momento no lo he conseguido.

CAPA DATOS:

Public da As MySqlDataAdapter
Public cmd As New MySqlCommand
Public ds As DataSet
Public dr As MySqlDataReader
Dim objConexion As New ConexionBD
Public Function Buscar_Cliente_x_Nombre(ByVal NombreCliente As String) As Cliente
        Dim lista As New List(Of Cliente)
        Dim lector As MySqlDataReader
        Dim objCliente As Cliente
        objCliente = New Cliente
        cmd.CommandType = CommandType.StoredProcedure
        'Nombre procedimiento almacenado
        cmd.CommandText = "Sp_Buscar_Cliente_x_Nombre"
        'obtener la conexion con la base de datos
        cmd.Connection = objConexion.obtenerConeccion
        With cmd.Parameters
            .Add("?nomCliente", MySqlDbType.VarChar).Value = NombreCliente
        End With
        If objConexion.obtenerConeccion.State = ConnectionState.Open Then
            objConexion.obtenerConeccion.Close()
        Else
            objConexion.obtenerConeccion.Open()
        End If
        lector = cmd.ExecuteReader
        While lector.Read
            objCliente = New Cliente
            objCliente.Cod_cliente = lector(1)
            objCliente.Nom_cliente = lector(2)
            objCliente.Tdo_cliente = lector(3)
            objCliente.Doc_cliente = lector(4)
            objCliente.Rep_cliente = lector(5)
            objCliente.Tel_cliente = lector(6)
            objCliente.Cre_cliente = lector(7)
            lista.Add(objCliente)
        End While
        Return objCliente
    End Function

CAPA NEGOCIOS

Private objClientedat As DatCliente
    Public Sub New()
        objClientedat = New DatCliente
End Sub
Public Function Buscar_Cliente_x_Nombre(ByVal NombreCliente As String) As Cliente
        Return objClientedat.Buscar_Cliente_x_Nombre(NombreCliente)
End Function

FORMULARIO