recordsetclone to loop through and send email

I am trying to send emails to recipients in a subform using its recordset. The code below is a quick draft and I'm not sure what's going wrong...it seems to spin its wheels, then crash.

Any ideas?

Dim strEmail As String
Dim strMailSubject As String
Dim strMSG As String

strMailSubject = "New translation"
strMSG = Me.tmpTranslatorMessage & _
vbCrLf & vbCrLf & Forms![frmtrad_commandes2].UserName & vbNullString

Dim db As Database
Dim rst As Recordset

Set db = CurrentDb
Set rst = [sbfrmTranslationPreselectTranslators].Form.RecordsetClone

With rst
    Do Until .EOF
        If rst("PreSelectionStatusID") = 1 Then
        strEmail = strEmail & rst("email") & ";"
        .MoveNext
        End If
    Loop
    .Close
End With


strEmail = Left(strEmail, Len(strEmail) - 2)
DoCmd.SendObject to:=strEmail, Subject:=strMailSubject, MessageText:=strMSG

Select all Open in new window