I have a continuous subform that has a list of people who need to something to be approved. I want it to open one email if all the "Approvers" are checked except "Finance" send this email, etc.

Here's my pseudocode:
If (everyrow is checked EXCEPT finance) Then
Generate finance email
Elseif(everyrow is checking INCLUDING finance) Then
Generate this email
Else(meaning at least one row is not selected that is not finance) Then
Generate this email
Does anyone know how to loop through the record set and do this.

This is what I have right now:
Set MyDB = CurrentDb
strSQL = "SELECT * FROM tbl_Approvers INNER JOIN tbl_Approvals ON tbl_Approvers.Approver = tbl_Approvals.Approver " _
& "WHERE tbl_Approvals.CRNumber= " & Me.CRNumber & ""

Set MyRS = MyDB.OpenRecordset(strSQL)

MyRS.MoveFirst


'Open up word template and replace all bookmarks with existing data

DoCmd.SetWarnings False

Dim Wrd As New Word.Application
Set Wrd = CreateObject("Word.Application")
'''''Wrd.Visible = True

Dim MergeDoc As String

'---------------------------------------------------------------------------------------------------------

If (MyRS![tbl_Approvals.Approver] = "Finance" And MyRS!Approved = False) Then
MergeDoc = Application.CurrentProject.Path & "\FinanceEmail.doc"
Wrd.Documents.Add MergeDoc
Else
MergeDoc = Application.CurrentProject.Path & "\ApprovalEmail.doc"
Wrd.Documents.Add MergeDoc
With Wrd.ActiveDocument.Bookmarks
.Item("FirstName").Range.Text = MyRS![tbl_Approvals.Approver]
End With
End If