Speed Up Datasearch

The code below is searching a ms access database that contains approx 53,000 records. This code go's into the data and extracts the files pertaining to this customer but the scripts takes approx 40 + seconds to search. Is there something different I can do to speed up the process ? Code:

Dim rs, sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT Left(CUSTNOITEM, 4) as CustNo,Right(CUSTNOITEM, 9) as CustNoI,CLASS,descrip,SEQ_NO FROM ARCPRICQ WHERE Left(CUSTNOITEM, 4) = '" & Session("login") & "' ORDER BY " & Mysort & " ;"
rs.Open sql, db, adOpenForwardOnly, adLockOptimistic
While Not rs.EOF