Report control instead of listview

Public Sub Populate()
Dim i As Integer
    Set rs = New ADODB.Recordset
    'If rs.State = 1 Then rs.Close
    rs.Open "SELECT DISTINCT studentno, fname FROM studentinfo;", db, adOpenDynamic, adLockPessimistic
    lstSubject.ListItems.Clear
    i = 1
    While rs.EOF = False
        lstSubject.ListItems.Add
        lstSubject.ListItems(i).Text = rs(0)
        lstSubject.ListItems(i).SubItems(1) = rs(1)
        i = i + 1
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing
    
End Sub
'==================================================

I used the code above but it won't work when I use it to the report control...
I'm confused ... I can't understand the samples of report control please help

I want to use the report control using the recordset.

Please help for the codes...

thanks...
 

thanks...