Tirar Foto Webcam ou Camera Notbook direto do formulário do access

Boa tarde pessoal. Tenho um sistema que trabalho muito com fotografias do cliente. Tiramos a foto da webcam, salvamos numa pasta do servidor e depois faço uma referência para buscar a foto de um campo texto (caminho salvo) e converte em campo foto.

Para inserir o caminho como campo texto e vincular no registro utilizo o seguinte código:
Dim strCaminho As String, strPastaInicial As String
   strPastaInicial = "C:\Documents and Settings\Cliente\Desktop\fotos\imagens"
   strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
   "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
   If Len(strCaminho) > 0 Then
       Me.localfoto1 = strCaminho
       Me.Foto1.Picture = Me.localfoto1
       Call cmdSalvar_Click
       End If

Depois, para mostrar a foto na pasta, seja no botão "ao clicar" ou no evento "no atual", utilizo o seguinte código
If IsNull(Me.localfoto1) = False Then
   Me.Foto1.Picture = ""
   Me.Foto1.Picture = Me.localfoto1
   Else
   Me.Foto1.Picture = ""
   End If

Gostaria de saber se alguém sabe de um código ou tem um formulário do access que eu tire a foto do próprio access e já vincule automaticamente no campo após tirar a foto.

Boa tarde,
Adeqúe o título. Escrever em maiúsculas significa gritar.

ok Alexandre. Feito. Desculpe-me. Não foi a intenção. Forte abraço.

Certo. Aguardemos se algum colega conhece forma de fazer o que pretende

Eduardo

Veja AQUI um exemplo

Abraços

Noob