@edy_bahia
Tente utilizar o código abaixo.
Faça com que o aplicativo de webcam salve as imagens capturadas sempre com o mesmo nome (c:\temp.bmp, por exemplo)
'Carrega a imagem capturada para a tela
Screen.Item(“Image1”).Picture = LoadPicture (“c:\temp.bmp”)
'Copia a imagem do caminho acima para outro arquivo indexado com o código do usuário
Set FSO = CreateObject(“Scripting.FileSystemObject”)
FSO.CopyFile “c:\temp.bmp”, “c:\ID”&Application.Item(“Cod_Usuario”).Value&".bmp"
'Salva o caminho da foto no campo do banco de dados
Set Consulta = Screen.Item(“Consulta1”)
Consulta.SetVariableValue “Usuario”, Application.Item(“Cod_Usuario”).Value
Consulta.SetVariableValue “Foto”, “c:\ID”&Application.Item(“Cod_Usuario”).Value&".bmp"
Consulta.Execute()