[Resolvido]Não está jogando foto para a pasta

Bom dia colegas .
 meu sistema parou de jogar foto para a pasta mudei de versão , é alguma referencia do OpenCommDlg

preciso de ajuda nesse objetivo

Código:


#Marcelo Davi
On Err
or Resume Next
  Dim strArquivo
  Dim SourceFile, DestinationFile
  strArquivo = Me.NOME_ & "--" & Me.congregacao & ".jpg"
  SourceFile = Me.Foto1 ' Define source file name.
  DestinationFile = CurrentProject.Path & "\Fotos\" & strArquivo ' aqui coloca o nome da pasta de destino, current project e a pasta raiz do sistema.
  FileCopy SourceFile, DestinationFile ' Copy source to target.
End Sub

Private Sub inserirfotos_Click()
 ListrArquivo2 = Me.NOME_ & ".jpg"
 strFoto = CurrentProject.Path & "\Fotos\" & strArquivo2 ' Define target file name.
 Dim s As String

If IsNull(Me.NOME_) = True Then
    MsgBox "Para colocar a foto é necessário o nome do membro.", vbInformation, "Atenção"
    Me.NOME_.SetFocus
    Me.NOME_.BackColor = 646464

ElseIf IsNull(Me.congregacao) = True Then
   MsgBox "É Obrigatório colocar a congregação do membro.", vbInformation, "Atenção"
    Me.congregacao.SetFocus
    Me.congregacao.BackColor = 646464
 
Else
s = OpenCommDlg()
If s <> "" Then
    Foto1 = s
    Call CopiarFoto
    Foto1_AfterUpdate
        DestinationFile = CurrentProject.Path & "\Fotos\" & strArquivo

 End If
 End If
End Sub

Private Sub Form_Current()
    Foto1_AfterUpdate
End Sub

Private Sub foto_AfterUpdate()
 Dim s As String
 s = Nz(Foto.Value, "")
 If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
 campoDaFoto.Picture = s
 If err.Number <> 0 Then campoDaFoto.Picture = ""
On Error GoTo 0
End Sub


Ele sempre fala que não existe esse esse membro , sendo que existe

Boas...só por curiosidade...

Checou as referências da antiga versão com a nova versão ?

Bom dia silvo, 
Cheguei todos as classes e módulos e referencia  , esta tudo ok

Boa tarde

Veja a imagem que anexo:

Boa tarde Assis consertei essa parte, vlw , o outro problema é que exibi a mensagem do txt_nome não existe, mas existe sim.
 já uso ela e refatorei em outros projetos e tudo funcionam nesse não. o membro (txt_nome) tem no corpo da linha do codigo.
mesmo tirando esse linha ele não joga a foto na pasta
como você viu na figura eu mudei o NOME_  para txt_nome  só para dar mais clareza

outro tipo de problema além de não copiar a foto e jogar para a pasta insere a foto de lado e seu eu tirar o sistema do disco C a parte de inserir a foto não funciona , mas se eu levar ela para o disco ela funciona.
meu deus , o que que eu fiz nesse projeto

Boa noite

Para estudar

Senha = 123456