I think you said the grouping model,
Public Sub ListviewFill_Group()
Try
Dim lvGroup As ListViewGroup
Dim lvItem As ListViewItem
sLV.lv.Items.Clear()
//Select Distinct(FundID) From FundDetails...
rsSql = objConn.ResultSet("PLACE your Sql Query")
If rsSql.HasRows Then
Do While rsSql.Read
lvGroup = New ListViewGroup(rsSql.Item(0))
lvGroup.Items.Add(rsSql.Item(0))
sLV.lv.Groups.Add(lvGroup)
If sLV.lvOrderBy <> "" Then
SQry = sLV.lvSub & " where " & sLV.lvDistColumn & "='" & rsSql.Item(1) & "' Order by " & sLV.lvOrderBy & " ASC"
Else
SQry = sLV.lvSub & " where " & sLV.lvDistColumn & "='" & rsSql.Item(1) & "'"
End If
rsSql1 = objConn.ResultSet(SQry)
If rsSql1.HasRows Then
Do While rsSql1.Read
lvItem = New ListViewItem(New String() {rsSql1.Item(0), rsSql1.Item(1), rsSql1.Item(2), rsSql1.Item(3), rsSql1.Item(4)}, 1, lvGroup)
sLV.lv.Items.Add(lvItem)
Loop
End If
rsSql1 = Nothing
Loop
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub