SQL = "SelectTop8*FromMusicListwhere" & SQL2 & "OrderByhitsdesc"
Selecionar os oito primeiros itens é inválido! ~
Todas as notícias são exibidas! ~ Por quê?
Basta mudar para o seguinte
SQL = "SelectTop8*FromMusicListwhere" & SQL2 & "OrderByhits, Iddesc"
Observe que o ID é aumentado automaticamente