Sortering virker ikke

Hej,

Jeg er ved at lave noget sortering, men jeg kan ikke få det til at virke.
Uanset hvad jeg gør, så vender den bare min liste, som fra start er sorteret efter id (autonum).

Hvad er der galt?

<%
    if request("sortering") <> "" Then
        sorter = request("sortering")
        Set rs = Server.CreateObject ("ADODB.Recordset")
        sql = "SELECT * FROM Kunde ORDER BY '" & sorter & "' ASC"
        response.write sql
        rs.Open sql, Myconn
    else
        Set rs = Server.CreateObject ("ADODB.Recordset")
        rs.Open "SELECT * FROM Kunde ORDER BY id ASC", Myconn
    end if
%>


Se den på http://florint.itws.dk/admin/kunder.asp