Dim createDset As New SISTEMA
        Dim RpDataSet As New DataSet
        Dim Localrp As Microsoft.Reporting.WinForms.LocalReport
        Dim ReportViewer1 As New Microsoft.Reporting.WinForms.ReportViewer
        RpDataSet = createDset.crea_dtset("SELECT * FROM QR_RPTOMESI", True, "")
        Localrp = ReportViewer1.LocalReport
        Localrp.ReportPath = "C:\Documents and Settings\cirio\Documenti\Visual Studio 2008\Projects\CONTI\CONTI\RPmesi.rdlc"
        Localrp.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("RpDataSet_QR_RPTOMESI", RpDataSet.Tables(0)))
        Me.ReportViewer1.RefreshReport()