Traité l'enregistrement null

Bonjour,
Trouver ce code sur internet pour envoyer des emails
Apres un selection , j'essaie ce code
Mais access traitement des nulls.
Hors j'ai toujours la ligne pour un nouveau enregistrement qui vide.
Comment le traiter dans ce code
Je vous remercie de votre aide
Voici le code
Private Sub Commande7_Click()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim Message As String

Set bd = CurrentDb
Set rs = bd.OpenRecordset("UtilisateursClique", dbOpenSnapshot)

With rs
.MoveFirst

Do While Not .EOF
Message = Message + !AdresseMail + ";"
.MoveNext
Loop

If MsgBox("Voulez vous confirmer l'envoie du mail de jfcb92 ?", vbInformation + vbYesNo, " ") = vbYes Then
DoCmd.SendObject acSendTable, "UtilisateursClique", acFormatHTML, Message, , , "Ceci est un Mail", "jfcb92 vient de vous envoyer un mail", False

.Close
MsgBox " ", vbInformation, "Votre mail a été envoyé avec succès"
Else
End If
End With

End Sub