Clases relacionadas en VB.net !!!

[junior1920]

Hola KaOstj:
Si aqui el codigo de la clase clsconexion

Código vb:

Imports System.Data
Imports System.Data.SqlClient
Imports Npgsql
Imports System.Configuration
Imports System.Linq
Imports System.Text
Public Class clsconexion
 Public cCon As String="Host=localhost;Port=5432;Database=bodega;User Id=postgres;Password=admin;"
' Public conexion as New NpgsqlConnection(cCon)
 Public Function Strconectado() as String
    Try
     cCon="Host=localhost;Port=5432;Database=bodega;User Id=postgres;Password=admin;"
     Catch  ex As Exception
       MsgBox(ex.Message)
     End Try
     return cCon
    End Function
'   Public Function desconectado()
'    Try
'       dim conexion= New NpgsqlConnection(cCon)
'       If conexion.State=ConnectionState.Open Then
'          conexion.Close()
'          Return True
'       Else
'          Return False
'       End If
'    Catch ex As Exception
'       MsgBox(ex.Message)
'       Return False
'    End Try
'   End Function
End Class
 

Aqui el code de la clase Gest_subcat

Código vb:

Imports System
imports Npgsql
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Data.SqlClient
Imports System.Configuration
Imports BodegaEntities.Entities
imports libreria_conexion
Imports System.Data
Public Class Gest_subcat
    Private Shared Function Convertirsubcat(ByVal reader As IDataReader) As subcategoriaEntities
        Dim subcategoria As New subcategoriaEntities()
        subcategoria.gidsubcat = Convert.ToInt32(reader("idsubcat"))
        subcategoria.gnomsub_cat = lTrim(RTrim(Convert.ToString(reader("nomsub_cat"))))
        subcategoria.gidcat=Convert.ToInt32(reader("idcat"))
        Return subcategoria
    End Function
        Public Shared Function list_subcat() As List(Of subcategoriaEntities )
         Dim lista As New List(Of subcategoriaEntities)()
         Try
         Dim subcategoria As subcategoriaEntities = Nothing
         Dim categoria As categoriaEntities=Nothing
         Dim Myconexion As New clsconexion
         Dim objconexion As New NpgsqlConnection(Myconexion.Strconectado)
         objconexion.Open()
         Dim Sql As New String("Select idsubcat,nomsub_cat,idcat FROM subcategoria order by nomsub_cat,idsubcat asc")
         Dim cmd As New NpgsqlCommand(Sql,objconexion)
         Dim reader as NpgsqlDataReader=cmd.ExecuteReader()
         'msgbox(objconexion.State)
         If(reader.HasRows=True) Then
            While reader.Read()
                lista.Add(Convertirsubcat(reader))
                'categoria=Convertircategoria(reader)
            End While
         objconexion.Close()
         Else
            MsgBox("Mensaje",vbCritical,"No existen registros")
         end if
         Catch ex As Exception
            MsgBox(ex.Message)
         Finally
            NpgsqlConnection.ClearAllPools()
        End Try
        Return lista
    End Function
End Class
 

y Aqui el del formulario donde listo las subcategorias:

Código vb:

imports System.Data
Imports libreria_datos
imports BodegaEntities.Entities
Public Partial Class listsubcat
    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()
        
        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub
    Private Sub cargarsubcat()
        Try
        dgwlistsubcat.DataSource=Gest_subcat.list_subcat()
        Catch ex As Exception
        End Try
    End Sub
    
    Sub ListsubcatLoad(sender As Object, e As EventArgs)
        cargarsubcat()
    End Sub
End Class
 

Bueno a simple vista en el datagridview se muesta asi:
idsubcat | nomsub_cat | idcat |
1 Detergente 1

Ahora la verdad quiero mostrar esto:
idsubcat | nomsub_cat | nom_cat |
1 Detergente Abarrotes

Pero la clase subcategoriaEntitie solo tiene el atributo idcat; lo que quiero es saber si existe la posibilidad de enlazar el atributo nom_cat de categoriaEntities y poder mostrar solo el campo que voy a utilizar que en este caso sería q me retorne el atributo "gnom_cat" de la clase categoriaEntities
Por que si inserto otro atributo no puede ser por q estas clases representan a las tablas y deben de estar tal y como estan las tablas o me equivoco

Y estoy haciendo en sharpdevelop y postgres desarrollando en 3 capas