Automate email to several addresses

I have this piece of code and it works well with the exception that it will only work with one address in the Recipients field.  When i put more than one i get the error that says outlook could not resolve addresses.  An outlook message appears with the addresses correct and then resolves them.  If I hit send the mail sends fine.  This tells me that the addresses in the window are correct and just not being resolved in time to send the message.  I have triedd putting a timer in the resolve loop to try to give it time, but that did not work.  Please Help!

Sub SendMessage(Optional AttachmentPath)
   Dim objOutlook As Outlook.Application
   Dim objOutlookMsg As Outlook.MailItem
   Dim objOutlookRecip As Outlook.Recipient
   Dim objOutlookAttach As Outlook.Attachment
   Dim rst As Recordset
   Dim dte As String
   Dim Comments As String
   Dim shipped As String
   Dim rolled As String
   Dim dollars As String
   Dim i As Date
 
'now open a recordset of that table so you can add new records
Set rst = New ADODB.Recordset
rst.Open Source:="SELECT * FROM temp_nightly_mail", _
         ActiveConnection:=CurrentProject.Connection, _
         CursorType:=adOpenKeyset, _
         LockType:=adLockOptimistic

dte = rst.Fields(0)
Comments = rst.Fields(1)
shipped = rst.Fields(2)
rolled = rst.Fields(3)
dollars = rst.Fields(4)


   ' Create the Outlook session.
   Set objOutlook = CreateObject("Outlook.Application")

   ' Create the message.
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

   With objOutlookMsg
      ' Add the To recipient(s) to the message.
     Set objOutlookRecip = .Recipients.Add("test1@xxx.com; IF I ADD ANOTHER NAME HERE IT FAILS")
      objOutlookRecip.Type = olTo

     'Add the CC recipient(s) to the message.
    Set objOutlookRecip = .Recipients.Add("test3@xxx.com")
    objOutlookRecip.Type = olCC

      ' Set the Subject, Body, and Importance of the message.
      .Subject = "Ship Stats "
      .Body = "Team"                
      '.Importance = olImportanceHigh  'High importance

     'Resolve each Recipient's name.
      For Each objOutlookRecip In .Recipients
         objOutlookRecip.Resolve
          If Not objOutlookRecip.Resolve Then
        objOutlookMsg.Display
     End If
        .Send
    Next

  End With
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
End Sub


Thanks