Private Sub ShowDialog(Item As Map, RowId As Long)
...
Dim date_string As String
DateTime.DateFormat = "MM/dd/yyyy"
date_string=DateTime.Date(DateTime.Now)
params.AddAll(Array(Item.Get("Model"), Item.Get("Name"), Item.Get("Datum"), .... 'remove'
params.AddAll(Array(Item.Get("Model"), Item.Get("Name"), date_string,.... 'add'
' or item.Put("Datum",date_string)'