Mostrar datos en varios textbox desde capa acceso datos

[junior1920]

Me ayudaron a solucionarlo. Lo que hice fue que al filtrar me envíe la la entidad y no el listado.

Ahora Capa de Datos "VehículoAD"

Código vb:

Imports MySql.Data.MySqlClient
Imports System.Data.SqlTypes
Imports ENTIDAD
Public Class VehiculoAD
    Private conn As New MySqlConnection  'SqlConnection
    Private conn1 As New MySqlConnection 'SqlConnection
    Private comando As New MySqlCommand 'SqlCommand
 
#Region "Cadena de conexion"
    Public Sub New()
        Dim Objconexion As New ConexionAD
        conn = Objconexion.abrir
        comando.Connection = conn
    End Sub
#End Region
 
#Region "Función Filtra_Vehi_PorId"
    Public Function Filtra_Vehi_PorId(ByVal ObjVehiculoEN As VehiculoEN) As VehiculoEN
        Dim reader As MySqlDataReader
        Try
            comando.CommandType = CommandType.StoredProcedure
            comando.CommandText = "Filtra_Vehi_PorId"
            Dim _idenviado As New MySqlParameter("idenviado", MySqlDbType.Int32)
            _idenviado.Value = ObjVehiculoEN.idv
            _idenviado.Direction = ParameterDirection.Input
            comando.Parameters.Add(_idenviado)
            reader = comando.ExecuteReader
            Dim vehiculo As New VehiculoEN
            While reader.Read
 
 
            End While
            Return list
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        Finally
            conn.Close()
            conn.ClearAllPools()
            conn = Nothing
        End Try
    End Function
#End Region