Relevans sortering af udtræk fra database (Optælling)

Jeg mangler at de fundne poster sorteres efter relevans (De ord som søges efter hvis de totalt set findes 5 steder i atabasen skal de komme før en post hvor 1 eller flere af ordrene kun kommer ialt 4 gange)

Her er koden:

  search = VareKategorien
  set RX = New RegExp
  RX.Global = True
  RX.IgnoreCase = True
  RX.Pattern = "[^\wæøåÆØÅ ]"
  search = RX.replace(search,"")
  searchArr = split(search," ")

  str = "(Beskriv100 like '%"& searchArr(0) &"%' or Beskriv like '%"& searchArr(0) &"%' or Fabrikat like '%"& searchArr(0) &"%' OR VareNr like '%"& searchArr(0) &"%') "
  for f=1 to ubound(searchArr)
      str = str & " or (Beskriv100 like '%"& searchArr(f) &"%' or Beskriv like '%"& searchArr(f) &"%' OR Fabrikat like '%"& searchArr(0) &"%' OR VareNr like '%"& searchArr(f) &"%') "
  next

strSQL = "SELECT * FROM varer WHERE " & str & " AND Lagerantal > 0;"

Kan man i SQL stregen få optællingen med og hvordan?
P.S: Det er en Access database det kører i P.T. men overvejer at skifte til en MySQL istedet.

Jeg har haft spørgsmålet under Access databaser, men det er konkluderet at det ikke kan styres fra en "Funktion" i databasen men kun kan laves i ASP men hvordan laver man den løkke?

Her er linket fra spørgsmålet i access databasen : http://www.eksperten.dk/spm/795560