Problem in Displaying Multiple Selected Item from listview to Crystal report Viewer

[apeg]

Hi Guys. I have a problem in displaying the data in my report viewer which is crystal report based on the value of checkbox. When i select and check multiple item that i want to print, only one item is in my report viewer. Can anyone help me on my problem?

This is my code and sample picture.

Private Sub Form_Load()
Dim i               As Integer
Dim s               As String

Screen.MousePointer = vbHourglass

Set rpt = crx.OpenReport(App.Path & "\Report\IDMaker.rpt")
Set db = rpt.Database
Set sect = rpt.Sections("DetailSection1")
  
For i = 1 To Glass.lvwStudent.ListItems.Count

    If Glass.lvwStudent.ListItems(i).Checked = True Then
        s = Glass.lvwStudent.ListItems(i).Text
            strSQL = "SELECT * FROM Student where stud_num = " & s
            dbcmd.CommandText = strSQL

            Set dbrst = dbcmd.Execute
            rpt.Database.SetDataSource dbrst, 3


    Screen.MousePointer = vbDefault
    End If
    
Next i

    CRViewer91.ReportSource = rpt
    CRViewer91.ViewReport
    CRViewer91.Zoom 1

End Sub

Thanks in advance.
I hope someone can help me.