[Resolvido]puxar foto

saudações,
a partir grande exemplo do mestre gilberlanio de inserir foto ,
estou tentando puxar a foto de um funcionario já cadastrado na tabela tbl_Funcionarios (do frm_CadFuncionario) para o formulario frmRegEntrada não está a funcionar.
por exemplo: após digitar o codigo de barra do funcionario "ex: 123" no frmRegEntrada gostaria que aparecesse a foto dele.
estou tentando o codigo abaixo e o bd em anexo.

Private Sub txtCodBarra_AfterUpdate()
If Right(Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho, 1) = "\" Then
      Me.imagemFuncionario.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.png"
  Else
      Me.txtCaminho = DLookup("caminhoImagem", "tbl_Funcionarios", "CodigoBarraFun = '" & Forms!frmRegEntrada!txtCodBarra & "'")
      Me.imagemFuncionario.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho
  End If
End Sub

desde já agradeço ajuda de todos.

Ola maryprego

acrescente isso:

txtCaminho = DLookup("CaminhoImagem", "tbl_Funcionarios", "CodigoBarraFun = '" & txtCodBarra & "'")

Após:

Private Sub txtCodBarra_AfterUpdate()

deixando seu código assim:

Private Sub txtCodBarra_AfterUpdate()

txtCaminho = DLookup("CaminhoImagem", "tbl_Funcionarios", "CodigoBarraFun = '" & txtCodBarra & "'")

If Right(Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho, 1) = "\" Then
     Me.imagemFuncionario.Picture = Application.CurrentProject.Path & "\Fotos\" & "NaoExiste.png"
 Else
     Me.txtCaminho = DLookup("caminhoImagem", "tbl_Funcionarios", "CodigoBarraFun = '" & Forms!frmRegEntrada!txtCodBarra & "'")
     Me.imagemFuncionario.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho
 End If
End Sub

funcionou!
muito obrigado.