Fra access til labels i word

Jeg har en labels.asp fil som kan downloades som word fil. I word udskrives labels til valgte typer adresser - 3 stk i bredde og 8 stk i længde.
Det fungerer fint, hvis antallet af adresser kan deles med 3. Er der 22 adresser bliver sidste label skrevet med 12 pt. og fejl '80020009' Undtagelse opstod.

Hvordan får jeg adresse 22 ud, konstatere at 23 og 24 ikke eksisterer så der skal afsluttes.

Jeg udskriver med følgende kode:
  if not objRS.EOF then

%>
<div class=Section1>
<%

      response.write "<table>"

  end if

  Do While Not objRS.EOF


      response.write "<tr>"
                Response.Write "<TD class='celle'><H6><br>" & objRS("A_Navn") & "<br>"
                Response.Write objRS("Adresse1") & "<br>"
                Response.Write objRS("Adresse2") & "<br>"
                Response.Write objRS("Postnr")  & vbcrlf
                Response.Write objRS("By") & "</H6></TD>"
 
          objRS.MoveNext
                Response.Write "<TD class='celle'><H6><br>" & objRS("A_Navn") & "<br>"
                Response.Write objRS("Adresse1") & "<br>"
                Response.Write objRS("Adresse2") & "<br>"
                Response.Write objRS("Postnr")  & vbcrlf
                Response.Write objRS("By") & "</H6></TD>"

          objRS.MoveNext
                Response.Write "<TD class='celle'><H6><br>" & objRS("A_Navn") & "<br>"
                Response.Write objRS("Adresse1") & "<br>"
                Response.Write objRS("Adresse2") & "<br>"
                Response.Write objRS("Postnr")  & vbcrlf
                Response.Write objRS("By") & "</H6></TD>"
          objRS.MoveNext


      response.write "</tr>"
  Loop

      response.write "</table>"