abri pdf em access

encontrei no forum um leitor de pdf que achei interessante e prático para a minha bd, no entanto alem das caixas de combinação ano e mes pecisava de uma outra para o dia, já tentei adaptar mas dá-me erro. O topico é este

http://maximoaccess.forumeiros.com/t8749-resolvidoduvida-abrir-aquivo-pdf-dentro-do-access

a bd

http://maximoaccess.forumeiros.com/download.forum?id=2085

up

alguem pode ajudar???

O que quer realmente fazer, explique melhor!!!!

No BD tem uma pasta ANO, que dentro tem uma pasta MÊS, você quer criar dentro de cada pasta MÊS uma pasta DIA para ser listada e daí carregar o PDF?

Pablo Neruda, e pá não pensei que iria ser o autor a ajudar, obrigado.

exatamente o que quero, seleciono o ano, seleciono o mes e seleciono o dia, lista os pdfs para ver.

-----------------------------
Quanto á bd original já fiz duas alterações que julgo ficar melhor, pelo menos para mim, pesso desculpa se estou errado,

-----------------------------
1
Private Sub Form_Load()

'DEFINE PASTA PRINCIPAL
MainPath = CurrentProject.Path & "\"

'POPULA COMBO PRINCIPAL
Arquivo = Dir(MainPath, vbDirectory)

Do While Arquivo <> ""

If InStr(1, Arquivo, ".") Then

'SAI FORA

Else

cboAno.AddItem UCase(Arquivo)


End If

Arquivo = Dir

Loop

End Sub

-----------------------------
2
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Me.pdf5.Width = 540 * 22
Me.pdf5.Height = 658 * 15.5
End Sub

up

ainda não tive ajuda. Peço novamente é que já tentei alterar mas como ainda compreendo pouco vb não consegui