DBcomm.CommandText = "Select data,ora,titolo,descrizione,immagine,convocati,assenti,tdg FROM eventi WHERE data>=" + dtd + " ORDER BY data ASC"

            Dim lettdati As OleDbDataReader
            lettdati = DBcomm.ExecuteReader