[Resolvido] Asp + Access

Dae, criei uma pagina de produtos em asp + access:

www.solangefestas.com.br/tortas.asp

O access coloca 10 produtos em cada página

<%
Set DB = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
DB.open "DBQ="&server.mappath("produtos.mdb")&";driver={microsoft access driver (*.mdb)};PWD=iddqd1"

RS.PageSize=10
RS.open "select * from tortas",DB,3
if RS.EOF then
response.Write "nenhum registro"
response.End
else
if request("pg")="" then
pg=1
else
if cint(request("pg"))<1 then
pg=1
else
pg=request("pg")
end if
end if
end if

RS.AbsolutePage=pg
registro=0

response.write "<span class='p4'>Página " & pg & " de "
response.write RS.pagecount & "<br></span>" & "<br>"

while registro<RS.PageSize and not RS.EOF

 response.write "<a href=torta_desc.asp?id=" & RS("codigo") & ">" & RS("torta") & "</a><br>"
 RS.movenext
 registro=registro+1

wend

	response.write "<br>"

if cint(pg)>=2 then response.write "<a href=tortas.asp?pg="&pg-1&">Anterior</a>        "
if pg<>0 and cint(pg)<RS.PageCount then response.write "<a href=tortas.asp?pg="&pg+1&">Próxima</a>"
%></td>
 <td width="280" valign="top"></td>
 </tr>
 </table>
 </div>
 </div>
	</div>
</div>
</div>

<% RS.close
DB.close %>

Porém, qd adiciono um novo produto pelo access, ele não põe em ordem alfabética, e coloca o novo produto como sendo último da lista.

Como eu faço pra colocar em ordem alfabética?