Vis de 10 første poster af søgestreng

Jeg har nedenstående kode:

strSQL46 = "SELECT Spm_titel, Antal_registreringer from Data d ORDER BY d.Antal_registreringer DESC"

recordSet.Open strSQL46, forbindelse, adOpenStatic, adLockReadOnly, adCmdText

  response.write "<table width=""100%"" border=1 "
  response.write "style=""font-family:helvetica; font-size:8pt;"">" & vbCrLf
  response.write vbTab & "<tr>" &vbCrLf

Do While recordSet.BOF = FALSE AND recordSet.EOF = FALSE
  response.write vbTab & "<tr>" & vbCrLf

c1 = "#FFFFFF"
For i = 0 to recordSet.Fields.Count -1
response.write vbTab & vbTab & "<td bgcolor=""" & c1 & """>" & recordSet.Fields(i) & "</td>" & vbCrLf

NEXT

    response.write vbTab & "</tr>" & vbCrLf
    recordSet.Movenext
Loop


recordSet.Close


Set recordSet = Nothing

forbindelse.close

Set forbindelse = Nothing

response.write "</table>" & vbCrLf

Hvordan omskriver jeg ovenstående løkke, så jeg kun får udskrevet de 10 første poster? Som det er nu udskriver den jo alle databasens poster.