Dim report As New ReportDocument()
        Try
            report.Load(reportpath)
            report.Database.Tables(0).SetDataSource(ds.Tables("TUTTO"))   ' gli assegno il dataset sul quale ho fatto la query
            report.SetDatabaseLogon(user,passw)
            CRV.ReportSource = report                         
            CRV.Visible = True
            'report.PrintToPrinter(1, True, 1, 1)
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try