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