Hjælp til udtræk

Jeg bruger følgende kode til at lave et database udtræk:

<%
    strinternekontakt = LCase(Request(\"internekontakt\"))
               
    If strinternekontakt > \"\" Then
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Set Rs = Server.CreateObject(\"ADODB.Recordset\")
                   
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"sejs.mdb\")
        Set Rs = Conn.Execute(\"SELECT * FROM adgangskoder WHERE lcase(email_status)=\'\" & strinternekontakt & \"\';\") 

        If Not (Rs.BOF Or Rs.EOF) then
            Do Until Rs.Eof
                %>

Ud over at den skal trække ud, skal den også sortere efter et felt navn hvordan skal jeg sætte det ind? her prøvet alt kan ikke få det til at virke!