Select Case order_By
  Case "EmailTo"
   order_By = "EmailTo, MsgDate, Subject, EmailFrom, RejectDetails"
  Case "Subject"
   order_By = "Subject, MsgDate, EmailFrom, EmailTo, RejectDetails"
  Case "EmailFrom"
   order_By = "EmailFrom, MsgDate, EmailTo, Subject, RejectDetails"
  Case "Domain"
   order_By = "Domain, MsgDate, EmailTo, Subject, RejectDetails"
  Case "MsgDate"
   order_By = "MsgDate, EmailFrom, Subject, EmailTo, RejectDetails"
  Case "RejectDetails"
   order_By = "RejectDetails, MsgDate, EmailFrom, Subject, EmailTo"
  Case "DESC-MsgDate"
   order_By = "MsgDate DESC, EmailFrom, Subject, EmailTo, RejectDetails"
 End Select

Then, one query may look like the following ... NOTE the first line ... it sorts like you asked about:

 If (Field = "tofield") Then
  SQL = "SELECT SUBSTRING(EmailFrom, CHARINDEX('@', EmailFrom) + 1, 100) AS Domain, QuarID, EmailFrom, Subject, MsgDate, MsgID, RejectDesc,  RejectDetails, EmailTo "
  SQL = SQL & "FROM tblQuarantine, tblRejectCodes "
  SQL = SQL & "WHERE EmailTo LIKE '%" + Replace(SearchQuery, "'", "''") + "%' "
  SQL = SQL & "AND (Deliver <> 1) "
  SQL = SQL & "AND (Expire <> 1) "
  SQL = SQL & "AND (tblQuarantine.RejectID = tblRejectCodes.RejectID) "
  If SearchSpan = 1 Then
   SQL = SQL & "AND (MsgDate >= DATEADD(hour,-1,getdate())) "
  End If
  If SearchSpan = 4 Then
   SQL = SQL & "AND (MsgDate >= DATEADD(hour,-4,getdate())) "
  End If
  If SearchSpan = 8 Then
   SQL = SQL & "AND (MsgDate >= DATEADD(hour,-8,getdate())) "
  End If
  If SearchSpan = 24 Then
   SQL = SQL & "AND (MsgDate >= DATEADD(hour,-24,getdate())) "
  End If
  SQL = SQL & "ORDER BY " & order_By
  Set rs = con.Execute(SQL)
  RecordCount = rs.RecordCount
 End If

I have a lot more going on so this will not work directly in you code but you can get the idea.

Dan S.