myReport = New R208_ATM900s
                NomeTabella = "Tab_ATM900_Set"
                AppPercorsoDB = PercorsoDB_208
                Query = "SELECT * FROM " & NomeTabella & " WHERE DateSerial(Mid(FirstDayWeek, 7, 4), Mid(FirstDayWeek, 4, 2), Mid(FirstDayWeek, 1, 2)) Between #" & DaData & "# And #" & AData & "#"
                ds = New R208