Dim objEb405 As New EB405()
objEb405.ID = 1
objEb405.Kort = "ADM"
objEb405.Omschrijving = "Administrators"

Dim Errors As List(Of RuleError)

Errors = BaseValidator(Of EB405).Validate(objEb405)
'Errors = Nothing

objEb405.Kort = "LangereOmschrijvingDan10Karakters"
Errors = BaseValidator(Of EB405).Validate(objEb405)
'Errors.Count = 1

Debug.WriteLine(Errors(0).ErrorMessage)


Public Class EB405

    <Column(Name:="groepID", PrimaryKey:=True)>
    Public Property ID As Integer

    <Column(Length:=10)>
    Public Property Kort As String

    <Column(Name:="omsch", length:=128)>
    Public Property Omschrijving As String

End Class