[Resolvido]Caixa de diálogo no Win64

Estou usando a solução deste post (http://maximoaccess.forumeiros.com/t11467-resolvidoanexar-arquivos-para-determinada-pasta-criando-a-pasta-com-o-cod-de-identificacao-e-criando-hiperlink-para-a-pasta). Porém, quando executo ele não abre a caixa de diálogo e já pula direto para a mensagem:
MsgBox "Voce não selecionou nenhum arquivo!", vbInformation, _
"UpLoad Cancelado"

Ele não abre a caixa de diálogo. Fiz a alteração no início do código para:
Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Mas, mesmo assim não dá certo.

Como adaptar para funcionar?

Agradeço desde já.

Instalei o Access Runtime 2010 32 bits. Resolveu!

Que ótimo meu amigo

Quando descobrimos por nós mesmo, é gratificante, né?

Grande abraço

Noob

Muito obrigado Noobezinho e a todos do fórum. A cada dia aprendo mais com vocês. Vlw galera!

Ola se tiver oportunidade em 64 teste assim

Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongLong

Abraço