I am using the below code to display all the record based on a condition, but it is displaying the last record.

Code:
               Dim objOutlook As Outlook.Application
               Dim objOutlookMsg As Outlook.MailItem
               Dim objOutlookRecip As Outlook.Recipient
               Dim objOutlookAttach As Outlook.Attachment
               Dim PLT As New ADODB.Connection
               Dim MyRecSet
...