'yourInsertMapsSub
Dim d As Long
DateTime.DateFormat = "dd/MM/yyyy"
d = DateTime.DateParse(txtData.Text)
DateTime.DateFormat = "yyyy-MM-dd"
Dim m As Map
m.Initialize
m.Put("data", DateTime.Date(d))
m.Put("destinaz", destinaz)
ListOfMaps.Add(m)
DBUtils.InsertMaps(Main.SQL_myDb, "orders", ListOfMaps)