Carlos, mande seu e-mail aqui que te mando um exemplo.
Agora veja, como carregar:
nomeie uma variavel tipo Picture, e uma string para o nome da foto.
Dim sLOAD As Picture
Dim sNOMEFOTO As String
Pegue o nome da foto no BD
sNOMEFOTO = rsnome("foto")
Teste antes de carregar, o objeto requerido é isto, não encontra a foto:
If Dir$(sNOMEFOTO) = "" Then
MsgBox("Não encontrada a foto")
Exit Sub
End If
Agora sim, carregue:
Set sLOAD = LoadPicture(sNOMEFOTO)
Set imgFOTO.Picture = sLOAD
Preste bem atenção, tem inclusive um evento de tratamento de erros, e voce tirou, e não está testanto o caminho da foto, se fizer exatamente como está, com as variáveis, e testar se existe a foto, se não existir dá exatamente este erro, as vezes a foto existe, mas voce não está informando o caminho corretamente.
São apenas pequenos detalhes que está passando despercebido por voce.
vlu//
