someone help me to solve this vba

[dawndon]

hi am currently develop enrollment system just have a major problem in displaying student rankings see the image attachment.

With ListView1
.ListItems.clear
End With
Set rs = New Recordset
rs.Open "select * from revieweegrades ORDER BY GENAVE DESC ", con, 1, 2
If rs.EOF Then
Else
With ListView1
.ListItems.clear
Do While Not rs.EOF
.ListItems.Add , , (rs.Fields("batch_no").Value), 1, 1
.ListItems(.ListItems.Count).SubItems(1) = (rs.Fields("reviewee_no").Value)
.ListItems(.ListItems.Count).SubItems(2) = (rs.Fields("fullname").Value)
.ListItems(.ListItems.Count).SubItems(3) = (rs.Fields("toa").Value)
.ListItems(.ListItems.Count).SubItems(4) = (rs.Fields("blt").Value)
.ListItems(.ListItems.Count).SubItems(5) = (rs.Fields("at2").Value)
.ListItems(.ListItems.Count).SubItems(6) = (rs.Fields("ms").Value)
.ListItems(.ListItems.Count).SubItems(7) = (rs.Fields("ap").Value)
.ListItems(.ListItems.Count).SubItems(8) = (rs.Fields("pa1").Value)
.ListItems(.ListItems.Count).SubItems(9) = (rs.Fields("pa2").Value)
.ListItems(.ListItems.Count).SubItems(10) = (rs.Fields("genave").Value)
Dim a, b As Integer
Dim cs As ListItems
b = 0
For a = 1 To ListView1.ListItems.Count
    If sm1 = ListView1.ListItems.Item(a).Text Then
    End If
With ListView1
   .ListItems(.ListItems.Count).SubItems(11) = a
     b = b + 1
    End With
Next a
rs.MoveNext
Loop
End With
End If
Set rs = Nothing
 

just want to make student who has a same genave will place same position...
subitems(11) will be the rankings
thanks