Dim q As DBResult = DBQuery.ExecQuery(sql, $"SELECT value from data WHERE id = ? and type = ?"$, _
Array(Place.EntityId, DATA_TYPE))
For Each row() As Object In q.Rows
Dim value As Double = row(0)
'or Dim value As Double = row(q.Columns.Get("value"))
Next