WriteLog("query start")
Dim SenderFilter As Object = DB.ExecQueryAsync("SQL", "SELECT DISTINCT carvaluename FROM carvalues WHERE timestamp>=? AND timestamp<=? ORDER BY carvaluename", Array As String(starttimestamp, endtimestamp))
WriteLog("query end")
Wait For (SenderFilter) SQL_QueryComplete (Success As Boolean, rs As ResultSet)
If Success Then
Do While rs.NextRow
WriteLog("add record")
entries.Add(rs.GetString("carvaluename"))
Loop