'Controllo su esattezza percorso DB
        Try
            sApp = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StructRpt(I).Percorso & ";"
            conn.ConnectionString = sApp
            conn.Open()
        Catch ex As OleDb.OleDbException
            conn.Close()

            'MessageBox
            Title = "ATTENZIONE"
            Msg = "Impossibile accedere al database '" & StructRpt(I).Percorso & "'. Verificare il percorso."
            Style = vbOKOnly + vbCritical + vbDefaultButton1
            Response = MsgBox(Msg, Style, Title)
            Exit Function
        End Try

        'Controllo su esattezza tabella nel db
        Try
            Dim da As New OleDb.OleDbDataAdapter(StructRpt(I).Query, conn)
            da.Fill(StructRpt(I).ds, StructRpt(I).NomeTabella)

            StructRpt(I).MyReport.SetDataSource(StructRpt(I).ds)

            'Scrivo il percorso nel report nel campo PercDB
            StructRpt(I).MyReport.SetParameterValue("PercDB", StructRpt(I).Percorso)
            'Scrivo la versione nel report e il periodo richiesto nel campo Versione
            StructRpt(I).MyReport.SetParameterValue("Versione", InfoPrg & " (" & Report.DaDate.Value & "-" & Report.ADate.Value & ")")

            Report.CrystalReportViewer1.ReportSource = StructRpt(I).MyReport
        Catch ex As OleDb.OleDbException
            conn.Close()

            'MessageBox()
            Title = "ATTENZIONE (tabella mancante o query errata)"
            Msg = "Impossibile trovare la tabella '" & StructRpt(I).NomeTabella & "' nel database '" & StructRpt(I).Percorso & "'"
            Style = vbOKOnly + vbCritical + vbDefaultButton1
            Response = MsgBox(Msg, Style, Title)
            Exit Function
        End Try
        conn.Close()