Imagem em Imagepicture ao selecionar item listview

Olá pessoal estou apanhando pra valer. Tenho um listview completo com os campos do banco de dados (tabela clientes), gostaria de que quando selecionasse um item do listview aparecesse a foto no cliente no imagelist.

Gostaria de uma luz, estou fazendo assim, mas está dando erro.
===============================================

Dim lsp As New ADODB.Recordset
Private Sub CommandButton1_Click()
Dim lb As String
lstmostra.ListItems.Clear
If lsp.RecordCount = 0 Then
MsgBox "A tabela do Banco de Dados está vazia", vbInformation, "Tabela Vazia"
End If
If lsp.RecordCount <> 0 Then
lsp.MoveMin
Do While Not lsp.EOF
Set lista = lstmostra.ListItems.Add(, , lsp!Nome)
lista.SubItems(1) = lsp!Data_Nascimento
lsp.MoveNext
Loop
lb = lstmostra.ListItems.Count
Label1.Caption = lb
End If
End Sub
Private Sub Form_Load()
GraduaForm Me, True, True, True
On Error GoTo lis
'Abre a Conexão
Conecta True
'Abre o Recordset
lsp.CursorLocation = adUseClient
lsp.Open "Select * From Tabmar", conexao, adOpenKeyset, adLockOptimistic, adCmdText
If lsp.RecordCount = 0 Then
   MsgBox "A tabela de clientes está vazia, é necessário cadastrar infrator primeiro"
   Exit Sub
End If
load_recv
Exit Sub
lis:
     MsgBox "Ocorreu um erro durante a abertura do arquivo"
End Sub
Private Sub Form_Unload(Cancel As Integer)
conexao.Close
Set conexao = Nothing
End Sub
=========================================
Private Sub load_recv()
On Error GoTo mostrav
    If lsp.BOF Or lsp.EOF = True Then Exit Sub
    If Not IsNull(lsp!Foto) Then
    Image1.Picture = LoadPicture(lsp!Foto)
    Else
    Image1.Picture = LoadPicture("")
    End If
    Exit Sub
mostrav:
     MsgBox "Ocorreu um erro no processamento"
End Sub
/////////////////////////////////////////////
=======================================================

** estou tentando carregar aqui e está ocorrendo erro******************
Private Sub lstmostra_ItemClick(ByVal Item As MSComctlLib.ListItem)
load_recv
End Sub