Sub RefreshData
Dim listOfMaps As List
listOfMaps.Initialize
Dim data As Map
data.Initialize
data.Put("Power",edtPower.Text)
data.Put("Temperature",edtTemp.Text)
data.Put("Ambient_Light",edtAmbLite.Text)
data.Put("Illumination",edtIllumin.Text)
listOfMaps.Add(data)
DBUtils.InsertMaps(SQL,"luminaire",listOfMaps)
WebView1.LoadHtml(DBUtils.ExecuteHtml(SQL,"SELECT * FROM luminaire",Null,0))
End Sub