Dim entries As List
entries.Initialize
WriteLog("query start")
Dim rs As ResultSet = DB.ExecQuery2("SELECT DISTINCT carvaluename FROM carvalues WHERE timestamp>=? AND timestamp<=? ORDER BY carvaluename", Array As String(starttimestamp, endtimestamp))
WriteLog("query end")
Do While rs.NextRow
WriteLog("add record")
entries.Add(rs.GetString("carvaluename"))
Loop
rs.Close