Dim RpDataSet As New SISTEMA
        Dim Localrp As Microsoft.Reporting.WinForms.LocalReport
        Dim ReportViewer1 As New Microsoft.Reporting.WinForms.ReportViewer
        Localrp = ReportViewer1.LocalReport
        Localrp.ReportPath = "C:\Documents and Settings\cirio\Documenti\Visual Studio 2008\Projects\CONTI\CONTI\TuoReport.rdlc"
        Localrp.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("RpDataSet_QR_RPTOMESI", RpDataSet.crea_dtset("SELECT * FROM QR_RPTOMESI", True, "")))
        ReportViewer1.Refresh()
        frmReports.Show()