Sortering efter relevans?

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 elelr 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

Hvori denne kode kan man se at den fjerner alle andre tegn end tal og bogstaver?