Obrigado Pela |Atecao
Eu consegui um exemplo de como gravar imagem do banco de dados
Peguei neste site http://www.macoratti.net/img_bd.htm, >> img_bd.zip <<<<
O problema agora, e localiza(find), ou seja digitar e apertar um botao q localize no banco de dados e apos a localizacao exiba a imagem, se fosse via dao eu sei, mas como eh via ado, eu nao sei

Se vc tiver um exemplo de como locazar me manda, por favor

exemplo de um programa livros q eu fiz via dao
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

RecordSet.Find "seu criterio de busca"

 

 

Pra saber se encontrou, na ADO não existe NoMatch... mas vc testa assim:

If Not RecordSet.EOF Then

    'encontrou

Else

    'nao encontrou

End If

 

Flw!

Outra coisa interessante para melhorar o desempenho e dinminuir drasticamente o tamanho do DB é gravar no banco somente o caminho da imagem e abrí-la usando o LoadPicture