Sub Speichern_Click
Dim ListOfMaps As List
ListOfMaps.Initialize
Dim maps1 As Map
maps1.Initialize
maps1.Put("ID",DateTime.Now)
maps1.Put("Datum", "01.02.2013")
maps1.Put("Titel", "Meeting")
maps1.Put("Startzeit", "09:00")
maps1.Put("Endzeit", "14:00")
maps1.Put("Ort", "München")
maps1.Put("KalenderID", "1")
maps1.Put("Kontakte", "Martin, Diana, Alex ")
maps1.Put("Beschreibung", "Besprechung bzgl. Implementierung wichtiger Punkte in die Datenbank")
maps1.Put("Alarm", "")
ListOfMaps.Add(maps1)
DBUtils.InsertMaps(Main.SQL1,"Kalender1",ListOfMaps)
End Sub