Lots of problems here.

You dim a Recordset but never set it to anything.

You refer to a Control as a member of a Recordset when that is not true.
Recordsets contain Fields.  Forms contain Controls and there is nothing about
what you are attempting that should even involve a form (although the code could
be run from a Form's module).

For - Each is used on collections.  A Recordset is not a collection so For -
Each is not appropriate.  You should use a Do - Until testing for EOF.

(untested air code follows)

Private Sub cmdSend_Click()
Dim db As Database
Dim rst As Recordset

Set db = CurrentDB
Set rst = db.OpenRecordset("YourQueryName", dbOpenSnapshot)

Do Until rst.EOF
   DoCmd.SendObject acSendNoObject, , , rst!EmailAddressField, Me.CC, ,
Me.Subject, Me.Message
   rst.MoveNext
Loop

rst.close
Set rst = Nothing
Set db = Nothing

End Sub

I realize now that your form might be bound to the query containing the Email
recipients.  I wouldn't do it that way as it is not necessary, but in that case
the code above could be modified to use the Form's own Recordset...

Private Sub cmdSend_Click()

With Me.RecordsetClone
   Do Until .EOF
       DoCmd.SendObject acSendNoObject, , , !EmailAddressField, Me.CC, ,
Me.Subject, Me.Message
       .MoveNext
   Loop
End With

End Sub

As I said, I'm clueless, but I totally appreciate the help.

I switched the code to below and it is sticking on the set rst line
returning the message of type mismatch.

rivate Sub cmdSend_Click()

Dim db As Database
Dim rst As Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("qryCurrentEmail", dbOpenSnapshot)

With Me.RecordsetClone
   Do Until .EOF
       DoCmd.SendObject acSendNoObject, , , rst!txtEmail, Me.CC, ,
Me.Subject, Me.Message
       .MoveNext
   Loop
End With

rst.Close
Set rst = Nothing
Set db = Nothing

   
End Sub