Dynamisk udvalg af data til listvivew (activex-kontrol)

Hej Eksperter
Jeg har fra makeiteasy.dk downloadet det eks. hvor man kan vælge data dynamisk til en rapport via chekbokse på et treewiew, fantastisk velfungerende, men spørgsmålet er om det er muligt at benytte samme metode når der er tale om et listview. Jeg forstiller mig at man via afkrydsning på listviewet listitem for listitem hakker af, når man så klikker på en knap på formen skal et andet listview vise de data de poster der svare til dem man har "hakket af" i det andet listview. Nedenstående kode virker på et enkelt selected item uden checkbokse, er dette muligt:

Kode:
Private sItem As String

Private Sub cmd_ok_Click()
'Her tømmes listen for data,før nye data loades'
Form_frmoversigt.lstobjekt.ListItems.Clear
'Variabler til databaseforbindelse'
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim itmX As ListItem
Dim sSQL As String
Set rs = New ADODB.Recordset
'Her køres udtrækket'
sSQL = "Select * From tbldata Where [Titel] = '" & sItem & "'"
With rs
'Forbindelse til datakilde oprettes'
Set .ActiveConnection = CurrentProject.Connection
'Poster hentes fra den angivne tabel/forespørgsel (variablen sSQL)'
.Open sSQL, , , adLockOptimistic
'Recordset løbes igennem til sidste post'
Do Until .EOF
'Data tilføjes i første kolonne, altså kolonne 0, denne kolonne indeholde titel'
Set itmX = Form_frmoversigt.lstobjekt.ListItems.Add(, , rs!Titel, 1, 1)
itmX.SubItems(1) = rs!Beskrivelse
itmX.SubItems(2) = rs!Kunster
itmX.SubItems(3) = rs!Producent
itmX.SubItems(4) = rs!Format
itmX.SubItems(5) = rs!Version
itmX.SubItems(6) = rs!MidifilTitelID 'skjult kolonne'
.MoveNext
Loop
End With
'Recordset lukkes'
rs.Close
End Sub