Function VisualizzaReport()

        'Gestione pulsante visualizza dalla pagina del report

        Dim ds As New DataSet1()                       'Dataset di connessione
        Dim conn As New OleDb.OleDbConnection()        'Connessione
        Dim sApp As String                             'Stringa d'appoggio
        Dim Query As String                            'Query per comandi sql
        Dim DaData As String                           'Data inizio 
        Dim AData As String                            'Data fine

        Dim myReport = New ATM900s            'Inizializzo un report fittizio
        Dim PercorsoDB As String                       'Percorso database
        Dim NomeTabella As String                      'Nome tabella

        DaData = CStr(Format(Report.DaDate.Value, "dd/MM/yyyy"))
        AData = CStr(Format(Report.ADate.Value, "dd/MM/yyyy"))

        myReport = New ATM900g
        PercorsoDB = "\\192.168.1.100\d\FTP\Davide\DBase.mdb"
        NomeTabella = "Tab_ATM900_1"
        Query = "SELECT * FROM " & NomeTabella & " WHERE Data Between '" & DaData & "' And '" & AData & "'"

        sApp = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PercorsoDB & ";"
        conn.ConnectionString = sApp
        conn.Open()

        Dim da As New OleDb.OleDbDataAdapter(Query, conn)
        da.Fill(ds, NomeTabella)
        myReport.SetDataSource(ds)
        Report.CrystalReportViewer1.ReportSource = myReport
    End Function