For o = 0 To AnzahlEintraege
Dim tmpDay As Long
tmpDay = DateTime.Add (DateTime.Now,0,0,o)
tmpDay = DateTime.
Dim Table As List
Table = DBUtils.ExecuteMemoryTable(Main.SQLBD, "SELECT * FROM Blutdruck WHERE Datum = ? ORDER BY Datum ASC", Array As String(tmpDay), 0)
Next