list view - busca

Olá amigos tenho esse código para efetuar uma busca no banco de dados e ele me mostra o resultado atraves de uma picture como faço para fazer ele me retornar o resultado no listview?

esse é o codigo:

Dim Qdade As Integer
Dim Larg As Integer

    Picture2.Cls
    VScroll1.Value = 5

    If txtPesquisa.Text = "" Then MsgBox "Nome não fornecido": txtPesquisa.SetFocus: Exit Sub
    'busca por aproximação
    mudNome = Trim(txtPesquisa.Text)
    mudNome = "%" & mudNome & "%"
    mudNome = Replace(mudNome, "%%", "%")

    Call fncMudaNome

cSQL = "SELECT * FROM Authors WHERE Author LIKE '" & mudNome & "' ORDER BY Author ASC"

    Me.MousePointer = 11
    With DE.rsAutores
        .Open cSQL, , adOpenDynamic, adLockBatchOptimistic
        If .EOF Then
            .Close
            MsgBox "O Autor: " & vbCrLf & "' " & txtPesquisa.Text & " '" & vbCrLf & "não está cadastrado", vbInformation, "Autor não cadastrado"
            Me.MousePointer = 0
            txtPesquisa.SetFocus
            Exit Sub
        Else
            Qdade = .RecordCount
'            If Qdade > 120 Then
'                Picture2.Height = 50000
'                VScroll1.Max = Picture2.Height
'            Else
'                Picture2.Height = (Qdade * 200)
'                VScroll1.Max = Picture2.Height
'            End If
            Do While Not .EOF
                DoEvents
                Picture2.Print ; !Au_ID; Tab(12); UCase(!Author)
                .MoveNext
            Loop
            .Close
        End If
    End With
    Me.MousePointer = 0
    Label2.Caption = "ENCONTRADOS " & Qdade & " REGISTROS"
    txtPesquisa.SetFocus