'Ci sono altre date?
        If num <> "" Then
            Dim result As MsgBoxResult
            result = MsgBox("Ci sono altre attività per questa data.Vuoi aggiungere il record?", MsgBoxStyle.YesNo, "Question")
            If result = MsgBoxResult.Yes Then
                MsgBox("SI", MsgBoxStyle.MsgBoxSetForeground And MsgBoxStyle.Information, "Message")
            ElseIf result = MsgBoxResult.No Then
                MsgBox("Record non inserito", MsgBoxStyle.MsgBoxSetForeground, "Critical")
            End If
        Else
            MsgBox("Record Inserito", MsgBoxStyle.MsgBoxSetForeground, "Message")
        End If