Como selecionar um item no ListView para Crystal

Como faço pra selcionar um item ou mais no ListView? Preciso gerar um relatório por grupos e os grupos aparecem no listview, mas não sei como faço pra fazer essa opção.

Veja o código que estou usando:

Dim i
    For i = ListView1.ListItems.Count To 1 Step -1
        If ListView1.ListItems(i).Checked = True Then
            Me.MousePointer = 11
            CrystalReport1.SelectionFormula = "{contatos.grupo} = " & ListView1.ListItems(i).Text   '""
            CrystalReport1.WindowTitle = "Relação de contatos cadastrados"
            CrystalReport1.SortFields(0) = "+{contatos.grupo}"
            CrystalReport1.Connect = vrSenhaBD
            CrystalReport1.DataFiles(0) = vrPathMDB
            CrystalReport1.ReportFileName = App.path & "elLista.rpt"
            CrystalReport1.Action = 1
            Me.MousePointer = 0
        Else
            Me.MousePointer = 11
            CrystalReport1.SelectionFormula = "{contatos.grupo} = " & ListView1.ListItems(i).Text '""
            CrystalReport1.WindowTitle = "Relação de contatos cadastrados"
            CrystalReport1.SortFields(0) = "+{contatos.grupo}"
            CrystalReport1.Connect = vrSenhaBD
            CrystalReport1.DataFiles(0) = vrPathMDB
            CrystalReport1.ReportFileName = App.path & "elGrupo.rpt"
            CrystalReport1.Action = 1
            Me.MousePointer = 0
        End If
        MsgBox ListView1.ListItems(i).Text
        MsgBox "Marque pelo menos uma opção !!!", vbInformation, "Marque opção"
        Exit Sub
    Next

Isso dar um baita erro! Agradeço desde já pela ajuda.