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.