Secondo voi è un idea folle o si può realizzare?

Public Enum Tipo As Byte
    t_varchar = 1
    t_int = 2
    t_short = 3
    t_char = 4
    t_byte = 5
    ' ...
End Enum

Public Class Colonna

#Region "Campi"

    Private _nome As String
    Private _valore As String
    Private _ordinale As Byte
    Private _tipo As Tipo

#End Region

#Region "Proprietà"

    Public Property Nome() As String
        Get
            Return _nome
        End Get
        Set(ByVal value As String)
            _nome = value
        End Set
    End Property

    Public Property Valore() As String
        Get
            Return _valore
        End Get
        Set(ByVal value As String)
            _valore = value
        End Set
    End Property

    Public Property Ordinale() As Byte
        Get
            Return _ordinale
        End Get
        Set(ByVal value As Byte)
            _ordinale = value
        End Set
    End Property

    Public Property Tipo() As Tipo
        Get
            Return _tipo
        End Get
        Set(ByVal value As Tipo)
            _tipo = value
        End Set
    End Property

#End Region
    
End Class

Public Class tabella

#Region "Campi"

    Private _colonne As New List(Of Colonna)

#End Region

#Region "Proprietà"

    Public ReadOnly Property Colonne() As List(Of Colonna)
        Get
            Return _colonne
        End Get
    End Property

#End Region

    Public Function findColumn(ByVal NomeColonna As String) As Boolean

        Dim Esiste As Boolean = False

        For i As Int32 = 0 To Me.Colonne.Count - 1

            If Me.Colonne(i).Nome = NomeColonna Then

                Esiste = True

            End If

        Next

        Return Esiste

    End Function

End Class