' this is the global scope Public Dim bNeu As Boolean = True Public Dim nID As Integer = 0 Global Dim aFields As List = List("Anrede", "Vorname", "Nachname", "Spitzname", "Email", "Telefon_dienstlich", "Telefon_privat", "Fax", "Handy", "Strasse_privat", "PLZ_privat", "Ort_privat", "Land_privat", "Strasse_dienstlich", "Ort_dienstlich", "PLZ_dienstlich", "Land_dienstlich", "Abteilung", "Organisation", "Notizen")