Order data in a table

Hi, I want to make a table with some links in it to order on name, addres, telephone,... I already make something that "works", but I want to replace the If ... Then statement to a Select Case. Can someone help me?


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="include/Connection.inc" -->
<%
Dim Conn
Dim rsTest

Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test\testdb.mdb"
Conn.Open ConnStr

Set rsTest = Server.CreateObject("ADODB.Recordset")
rsTest.ActiveConnection = Conn

Dim strCase
strCase = Request.QueryString("sort")
If strCase = "naam" Then
  rsTest.Source = "Select * FROM tblKlant ORDER BY Naam ASC;"
Else
  rsTest.Source = "Select * FROM tblKlant ORDER BY Telefoon DESC;"
End If
rsTest.Open
%>