[Resolvido]Sub ou Function Não Definida

Olá, estou fazendo um código para Selecionar uma imagem e está dando esse erro.Detalhe: No Access 2003 Funciona e no 2010 Não!

Private Sub foto_DblClick(Cancel As Integer)
On Error GoTo e

Dim ArquivoOrigem As String
Dim strPastaInicial As String
Dim ArquivoDestino As String
Dim PastaDestino As String
Dim fs As Object

ArquivoOrigem = buscar(Me.Hwnd, "Inserir imagem", strPastaInicial, _
"Arquivos (*.jpg)" & vbNullChar & "*.jpg")


If Len(ArquivoOrigem) > 0 Then

PastaDestino = Me.[Logo_Formularios].[Form]![Foto] & "\DBNetwork\fotos\"

'VERIFICANDO SE A PASTA TEMP EXISTE, SE NAO CRIA------------------------------
If Dir(PastaDestino, vbDirectory) = "" Then
MkDir PastaDestino
End If
'------------------------------------------------------------------------------

ArquivoDestino = Me.[Logo_Formularios].[Form]![Foto] & "\DBNetwork\fotos\c" & Me.[ID_Cliente] & ".jpg"

Set fs = CreateObject("Scripting.FileSystemObject")

'Verificando se o arquivoja existee deleta
If fs.FileExists(ArquivoDestino) Then
fs.DeleteFile (ArquivoDestino)
End If

'Copiando arquivo para pasta das fotos
fs.CopyFile ArquivoOrigem, ArquivoDestino

Me.UsarFoto = True
'DoCmd.RunMacro "Empresa.ProtegerCadConsumidor"

End If

Exit Sub

e:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical, "Erro"
End If

End Sub

Boa noite Tulio, seja bem vindo ao Fórum.
Verifique a função onde se encontra.... Se é publica ou privada, se está em um módulo ou no proprio form... Disponibilize a parte referente do BD para que possamos ver.

Cumprimentos.

Obrigado Piloto!

É Privada e está no Form.

Manda o BD para que possamos ver.

Cumprimentos.