Vorbereitungen zu nächster Unterscheidung bei der Art des Zugriffes

Customers/CustomsAviso.aspx.vb

@@ -29,7 +29,13 @@ Partial Class Kundenbereich_Default
     Dim LKWNR As String = ""
     Dim KDNAFNR As String = ""
     Dim dt As DataTable
-
+    Enum ART
+        Kunde
+        AVISIERER
+        Frächter
+        VERAG
+        ZOLL
+    End Enum
     Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
         'MsgBox(Session.Item("test").ToString)
         'MsgBox(Session.Item("CustomerID").ToString)