Dim firstTime As Boolean = True

Do Until Template.EmailTemplateRecipients.EOF

   If Not firstTime Then
      QueryString.Append("UNION" + vbCrLf)
   End If

   ' ...

   firstTime = False
Loop