Buscar imagem na tabela em campo anexo

Fiz uma busca e não encontrei nada parecido.

Estou criando uma aplicação e estou criando as Ribbons.
Seguindo o tutorial da MS estou consegui fazer o que quero.

Agora vêm o problema, encontro esse código na web, mas como podem ver ele pega o arquivo na pasta raiz da aplicação, até ai tudo bem..fica até mais simples e não deixa o BD ficar cheio, mas como vou usar poucas imagens e vou usar os defaults mesmo já que estou fazendo um aplicação simples e que não vou cobrar pelo serviço, que facilitar as coisas

Public Sub getImages(control As IRibbonControl, _
                    ByRef image)
' Loads a picture without transparency into the ribbon
' Only valid picture formats must be used (see OH).

   Set Image = LoadPicture(getAppPath & control.Tag)
'Or a ImageMso
   image = "HappyFace"
End Sub

Adaptei dessa forma, claro que ele não pegou a imagem.
Se trocar Set image = !images por image = "Lock" ele pega a imagem default do Access

Código:

Function GetImage(control As IRibbonControl, ByRef image)

Dim Rst As New DML
If Rst.OpenRecordset("USysRibbonImages") Then
With Rst.Recordset
    .FindFirst "ControlID = '" & control.Id & "'"
    If .EOF Then
        ' No image found
        Set image = Nothing
    Else
        Set image = !images
    End If
End With
End If
End Function

Na página de exemplo da Msdn ele mostra que tenho que criar um form, depois chamar ele oculto só existe essa forma de buscar a imagem no banco?
Se alguém souber agredeço qualquer ajuda

Valeu.
Vou dar uma olhada no código.

Dei uma lida é fica muito mais trabalho, tem que converter para bmp.
Acho que vai ser mais fácil criar uma pasta com as imagens mesmo junto a aplicação.

O que acha?

Antes de utilizar a forma que você postou, estou tentando sem sucesso seguir esse tutorial
http://msdn.microsoft.com/en-us/library/bb187398.aspx#OfficeAccess2007RibbonX_AdvancedScenario

Existe alguma alteração a ser feita? Quando uso o código ele fala que não conseguiu chamar a função GetImage

Valeu.

Qual forma vc aconselha utilizar? fora ou dentro do DB?

Acredita que está dando erro.
Fiz literalmente cópia do seu código, apenas mudando o nome do form e tabela e ele me mostra erro de compilação Sub ou Function e jogo o focus no LoadImage
Set Image = LoadImage(strCaminho)

Avelino agora que vi com mais calma o código.
Já posto o resultado.


Funcionando. Valeu.
Tinha esquecido do módulo mod_picture, vi que faltava ele lendo a aula 4


Valeu Avelino por compartilhar conhecimento.