Try changing this code:
While ((Repeat1__numRows <> 0) AND (NOT rsBackOrders.EOF))
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & " <tr>" & vbCrlf & ""
MailBody = MailBody & " <td height=" & Chr(34) & "22" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("itemnumber").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td>"
MailBody = MailBody & (rsBackOrders.Fields.Item("description").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("packquantity").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "right" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("price").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("quantity").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "right" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("totalprice").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " </tr>" & vbCrlf & ""
MailBody = MailBody & " "
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsBackOrders.MoveNext()
Wend
to:
While ((NOT rsBackOrders.EOF))
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & " <tr>" & vbCrlf & ""
MailBody = MailBody & " <td height=" & Chr(34) & "22" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("itemnumber").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td>"
MailBody = MailBody & (rsBackOrders.Fields.Item("description").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("packquantity").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "right" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("price").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("quantity").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "right" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("totalprice").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " </tr>" & vbCrlf & ""
MailBody = MailBody & " "
rsBackOrders.MoveNext()
Wend