Hello Alessio,
I have been able to fix this way...
oGloCmd.CommandText = "SELECT DateInsert FROM Movies WHERE (DateInsert >= #" & VB6.Format(DateAdd(Microsoft.VisualBasic.DateInterval.Day, -1, Now), "dd-mm-yyyy") & "#) ORDER BY UCASE(DateInsert)DESC"
and...
sSQL = "SELECT MovieID,Title,Genre,Cover FROM Movies WHERE (DateInsert >= #" & VB6.Format(DateAdd(Microsoft.VisualBasic.DateInterval.Day, -1, Now), "dd-mm-yyyy") & "#) ORDER BY Year DESC "
I still have a small issue with the "week" sorting but not sure if it's my fault or something else.
Must be applied to TODAY, WEEK, MONTH & YEAR according their variables.