Preciso fazer uma localizacao dinamica, quando digitar o nome da imagem e apertar o botao, localize o nome e a imagem q foi gravado no danco de dados(access via ado)

Se fosse via dao  usaria

If KeyCode = vbKeyReturn Then
Dim Pesquisa As String 'Declarando a Variável
    Pesquisa = InputBox("Qual o Código do Livro?", "Cadastro de Livro!!") 'Criando o conteúdo da Variável
    If Pesquisa = "" Then
    Exit Sub    'Saindo da Rotina Caso você não digite nada ou Clique no Botão Cancelar
    Else
     Data1.Recordset.FindMin "Codlivro = '" & Pesquisa & "'" 'Ligando o Valor da Variável com o campo NOME usando o Comando (FindMin)
    If Data1.Recordset.NoMatch Then 'Caso não localize o Nome Digitado você usa o Comando NoMatch
    MsgBox "Código do Livro não Localizado!", vbInformation, "Cadastro de Livro!"
    Exit Sub 'Saindo da Rotina de Pesquisa
    End If
    End If
End If

 

mas como e ado nao sei, como posso fazer isso se alguem tiver um ex me manda

 

OBRIGADO