DBcomm.CommandText = "Select data,ora,titolo,descrizione,immagine,convocati,assenti,tdg FROM eventi WHERE data >='" & DateAndTime.Today & "'"