Ciao ragazzi

ho creato una bacheca.
nella pagina di visualizzazione annunci intabello i dati e creo per ogni annuncio una pagina attraverso un link e nella pagina aperta dove dovrebbe visualizzarmi l'intero file ho inserito questo codice
codice:
<%
Dim Conn 
Dim Rs
Dim SQL
Dim ID
										
ID=Request.QueryString("ID")
															
Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/annunci.mdb") 
SQL = "SELECT * from annunci WHERE ID=ID"
set Rs = Conn.Execute(sql)
					 
%>
<%Response.Write(ID)%>
<%=rs("username")%>

<%
Rs.Close 
Set Rs=Nothing 
conn.Close 
Set conn=Nothing 
%>
con il response write l'id me lo visualizza correttamente mentre per tutti gli altri valori come ad esempio username mi restituisce sempre e solo quello del primo annuncio...
Come posso risolvere?
io vorrei che a un determinato id mi visualizzi lo user corrispondente e cosi via per la data, il luogo etc...
grazie!