How To Summarize multiple name into one where the date is equal to now

Hello , i am using vb6.0 can some one help me with my problem. I want to summarize a database with multiple name and display it into one data where the date is same today. thank you for any one would response.

for example. below is a table where multiple names created.

In database

Name            Total Payment           Date
lius--             100---               07/01/22
lius--             100---               07/01/22
lius--             50--                 07/01/22 
era--              60--                 07/03/22
era--              50--                 07/03/22

So when it executed in listview form it would look like on the below sample

Name            Total Payment           Date
lius--             250--                07/01/22
era--              110--                07/03/22

Here is my code for executing my database in listview form

Set rxb = New ADODB.Recordset
rxb.Open "Select * from History order by trn", con, 3, 3

with rxb
    On Error Resume Next
    Do While Not .EOF
        ListView2.ListItems.Add , , !TRN, 1, 1
        ListView2.ListItems(ListView2.ListItems.count).SubItems(1) = "" & !Emp
        ListView2.ListItems(ListView2.ListItems.count).SubItems(3) = "" & !hdate
        ListView2.ListItems(ListView2.ListItems.count).SubItems(4) = "" & !htime
        ListView2.ListItems(ListView2.ListItems.count).SubItems(5) = "" & !purchases
        ListView2.ListItems(ListView2.ListItems.count).SubItems(6) = "" & !payment
        ListView2.ListItems(ListView2.ListItems.count).SubItems(7) = "" & !rBalance
        ListView2.ListItems(ListView2.ListItems.count).SubItems(8) = "" & !adjustment
        ListView2.ListItems(ListView2.ListItems.count).SubItems(9) = "" & !Pm
        ListView2.ListItems(ListView2.ListItems.count).SubItems(10) = "" & !Cashier
        .MoveNext
    Loop
    .Close
End With