title: Sending Multiple mails from outlook using VB6
body: <p>Hi I am developing a small application in VB to send separate mails from a list of email addresses stored in an Access database. I am using ADODC controller to connect VB and Access. But while looping through ADODC controller I am getting the error "Item has been moved or deleted". could you guys please help me on this? Below is the code I am using. I want to send separate mail for each address, so cant use <code>.Recipients.Add</code> command.</p>
  
  <pre><code>Private Sub Send_Click()
    Dim oOApp As Outlook.Application
    Dim oOMail As Outlook.MailItem
  
    Set oOApp = CreateObject("Outlook.Application")
    Set oOMail = oOApp.CreateItem(olMailItem)
  
    With oOMail
  
      Adodc1.Recordset.MoveFirst
  
      While Adodc1.Recordset.EOF = False
       .To = Text1.Text   &lt;------ getting error in this line in second iteration
       .Subject = Subject.Text
       .Body = MsgBody.Text
       If path1.Text &lt;&gt; "" Then
         .Attachments.Add path1.Text, olByValue, 1
       End If
      .Send
      Adodc1.Recordset.MoveNext
    Wend
  End Sub
  </code></pre>