Grazie Cassano

Ho provato ad inserire la tua istruzione però non ho l'effetto voluto. Forse ho commesso un errore.
La tua istruzione l'ho inserita a questo punto del codice:

Nella prima sub cioè calendar1_SelectionChanged

codice:
dgaccrediti.DataSource = Nothing
            lblsegnalazione.Text = "Non ci sono accrediti registrati per il giorno " & dataop.Text
        Else