Несколько событий, происходящих в одну и ту же дату - VB

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Activate()
 
Label2 = Date
 Dim Conn As New ADODB.Connection, RS As New ADODB.Recordset
Conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Downloads\VB примеры\Nap4\Event_db.accdb;Persist Security Info=False;"
RS.Open "SELECT Da_te, Event, Ti_me, Doctor, Phone, Location, Da_te2 FROM Event_tbl WHERE Da_te =#" + Format$(Date, "mm\/dd\/yyyy") + "#", Conn
If Not RS.EOF Then
 
  Label6 = RS("Da_te")
  Label7 = RS("Ti_me")
  Label8 = RS("Doctor")
  Label9 = RS("Phone")
  Label10 = RS("Location")
  Label5 = RS("Event")
   'Label61 = RS("Da_te")
  'Label71 = RS("Ti_me")
  'Label81 = RS("Doctor")
  'Label91 = RS("Phone")
  'Label101 = RS("Location")
  'Label51 = RS("Event")
Else
  Label5 = "Нет событий"
  
End If
RS.Close
Conn.Close
 
End Sub

Этот код позволяет мне при достижении сегодняшней даты выводить в Labels из БД записи, соответствующие этой дате, т.е. событие наступает при достижении сегодняшней даты. Но таких событий, с сегодняшней датой, может быть несколько в БД (1 или 2 или 3). Как сделать, чтобы при достижении сегодняшней даты, если есть несколько записей, выводить их в разные Labels, в соответствии с событием? Например: Сегодня есть очередь к врачу - все записи выводятся в Labels связанные с этим событием, но сегодня есть очередь и к другому врачу - все записи должны выводиться в другие Labels связанные уже с этим событием и т.д.

Решение задачи: «Несколько событий, происходящих в одну и ту же дату»

Листинг программы