Group By e Distinct

Que bosta, nenhum dos dois ta fazendo o que eu quero.<%SQL3 = "SELECT * FROM Fotos Group By Evento"Set Rs3 = cnAlbum.Execute(SQL3)Do While Not Rs3.EOF%><div align="left"><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="229" height="19" id="AutoNumber1"><tr><td width="229" height="19"><a href="?Evento=<%=Rs3("Evento")%>" style="text-decoration: none"><%=Rs3("Evento")%></a></td></tr></table></div><%Rs3.MoveNextLoop%>Ele mostra todos os registros da tabela.