'RpTviewer è il mio controllo report viewer che ho aggiunto
        'crea_dtset  una mia funzione che mi crea solo un dataset e mi riempie una datagridview in presenza di un parametro.
        
        Dim localReport As LocalReport
        localReport = RpTviewer.LocalReport
        localReport.ReportEmbeddedResource = "RP - Backup.rdlc"
        Dim dataset As New DataSet("QR_RPTOMESI")
        Dim objdt As New SISTEMA()
        dataset = objdt.crea_dtset("SELECT * FROM QR_RPTOMESI", False, "")
        Dim datasourceRP As New ReportDataSource()
        datasourceRP.Name = "ReportMesi"
        datasourceRP.Value = dataset.Tables("QR_RPTOMESI")
        localReport.DataSources.Add(datasourceRP)
        RpTviewer.Refresh()