How do I call multiple items in the same recordset?

Example: I have two different E-mails with two different subjects. They are inside the Sender recordset. I want to load them both into the listview. Here's some code for you to work from.

VB Code:
  1. Private Sub tvwFolders_NodeClick(ByVal Node As MSComctlLib.Node)
  2.     Set Recordset = New ADODB.Recordset
  3.     lvwMail.ListItems.Clear
  4.     If Recordset.State = 0 Then
  5.         Recordset.Open dtaDeletedMail.RecordSource, dtaDeletedMail.ConnectionString, adOpenKeyset, adLockOptimistic
  6.     End If
  7.     If Node.Index = 1 And Node.Expanded Then
  8.         tvwFolders.Nodes(1).Expanded = False
  9.         tvwFolders.Nodes(1).Image = 1
  10.     Else
  11.         tvwFolders.Nodes(1).Expanded = True
  12.         tvwFolders.Nodes(1).Image = 2
  13.     End If
  14.     Select Case Node.text
  15.         Case "Inbox"
  16.             If lvwMail.ListItems.Count = 0 Then
  17.                 Call ListMessages
  18.             End If
  19.         Case "Trash"
  20.             If Recordset.EOF = True Or Recordset.BOF = True Then Exit Sub
  21.             lvwMail.ListItems.Clear
  22.             With lvwMail.ListItems.Add(, , Recordset!Sender)
  23.                 .SubItems(1) = Recordset!Subject
  24.                 .SubItems(2) = Recordset!Date
  25.             End With
  26.     End Select
  27. End Sub