Email Multiple Emails From A Table

Can someone help me try and figure out how I can get my code to not just pull the first email based on a dlookup from a table...

I am looking to enter information in a form and have outlook populated with to specific email addresses based on a groupid in the table. Right now this code works fine but only returns 1 email address not all with the same GroupID.

Private Sub Command27_Click()
On Error GoTo Err_Command27_Click



Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim stText As String '-- E-mail text
Dim RecDate As Variant '-- Rec date for e-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stWho As String '-- Reference to tblUsers
Dim stEvalEmp As String '-- Person who assigned ticket
Dim stDelBidPrice As String '-- Delivery Bid Price
Dim stOverBidPrice As String '-- Override Bid Price
Dim stOverMeanPrice As String '-- Override Mean Price
Dim stOverOfferPrice As String '-- Override Offer Price

'-- Combo of names to assign price change to
stWho = Me.GroupID
stWhere = "ClientServices_tbl.GroupID = " & "'" & stWho & "'"


'-- Looks up email address from ClientServices_tbl
varTo = DLookup("[ClientEMAIL]", "ClientServices_tbl", stWhere)

RecDate = Me.Date

stSubject = ":: Price Change Request :: " & RecDate

stCusip = Me.CUSIP
stDelBidPrice = Me.DeliveredBidPrice
stOverBidPrice = Me.OverrideBidPrice
stOverOfferPrice = Me.OverrideOfferPrice
stOverMeanPrice = Me.OverrideMeanPrice

'-- Evaluators employee who assigns ticket
stEvalEmp = Me.EvalEmpId.Column(1)

stText = "A price change has been requested by Evaluators Department." & Chr$(13) & Chr$(13) & _
"This price change has been requested by by: " & stEvalEmp & Chr$(13) & _
Chr$(13) & _
"Price Change Details:" & Chr$(13) & _
"Received Date: " & RecDate & Chr$(13) & _
"CUSIP: " & stCusip & Chr$(13) & _
"Delivered Bid Price: " & stDelBidPrice & Chr$(13) & _
"Override Bid Price: " & stOverBidPrice & Chr$(13) & _
"Override Offer Price: " & stOverOfferPrice & Chr$(13) & _
"Override Mean Price: " & stOverMeanPrice & Chr$(13) & _
"This is an automated message. Please do not respond to this e-mail."


'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1

Exit_Command27_Click:
Exit Sub

Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click
DoCmd.GoToRecord , , acNewRec
End Sub