[Resolvido]Access abrir leitor com mais de uma extenção

Ai amigos,eu tenho essa função que me abre um leitor de extenção .pdf,o que eu preciso é que ele abra também um leitor com a extenção .cbr.
Ja coloquei mais essa linha strArquivo = Dir$(strCaminho & "*.cbr") mas não deu certo,como eu poderia fazer.






Private Sub fncCarregaTabela()

Dim strArquivo As String
Dim strCaminho As String

' Call CurrentDb.Execute("delete * from temp_tblPDFs;")

strCaminho = CurrentProject.Path & "\PDF\"
strArquivo = Dir$(strCaminho & "*.pdf")

Do While Len(strArquivo) > 0
Call CurrentDb.Execute("insert into temp_tblPDFs values (""" & strArquivo & """);")
strArquivo = Dir$()
Loop

Me!Lista0.RowSource = "select pdfs from temp_tblPDFs order by pdfs;"

End Sub

bom dia

Para abrir arquivos e de várias extensões, utilizo a função abaixo.

Sub wzGetFileName()
Dim wzhwndOwner As Long
Dim wzAppName As String
Dim wzDlgTitle As String
Dim wzOpenTitle As String
Dim wzFile As String
Dim wzInitialDir As String
Dim wzFilter As String
Dim wzFilterIndex As Long
Dim wzView As Long
Dim wzflags As Long
Dim wzfOpen As Boolean
Dim ret As Long

WizHook.Key = 51488399

wzhwndOwner = 0&
wzAppName = "Adjuntar documento"
wzDlgTitle = "Abre el documento"
wzOpenTitle = "Abre el documento"
wzFile = String(255, Chr(0))
wzInitialDir = ""
wzFilter = "Archivos " _
& "(*.pdf;*.jpg)"
'wzFilter = wzFilter & Chr$(0)
wzFilterIndex = 1
wzInitialDir = CurrentProject.Path & "\"
wzView = 1
wzflags = 64
wzfOpen = True

ret = WizHook.GetFileName(wzhwndOwner, _
wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
wzInitialDir, wzFilter, wzFilterIndex, _
wzView, wzflags, wzfOpen)

' Si no se ha pulsado el botón Cancelar (-302)
If ret <> -302 Then
Me.nomedotxtqueficaraocaminhoparagravardepois = wzFile
End If
End Sub

e no evento clique chamo dessa forma;
wzGetFileName
guardando o nome do caminho junto com a extensão no txt informado dentro da função.

Obrigado amigo,daria pra me enviar um exemplo com esse código.

crie, um form com uma caixa de texto exemplo. txtarquivo

crie um botão

copie e cole esse codigo;

Sub wzGetFileName()
Dim wzhwndOwner As Long
Dim wzAppName As String
Dim wzDlgTitle As String
Dim wzOpenTitle As String
Dim wzFile As String
Dim wzInitialDir As String
Dim wzFilter As String
Dim wzFilterIndex As Long
Dim wzView As Long
Dim wzflags As Long
Dim wzfOpen As Boolean
Dim ret As Long

WizHook.Key = 51488399

wzhwndOwner = 0&
wzAppName = "Anexar documento"
wzDlgTitle = "Abra o documento"
wzOpenTitle = "Abra o documento"
wzFile = String(255, Chr(0))
wzInitialDir = ""
wzFilter = "Registros " _
& "(*.pdf;*.cbr)"
'wzFilter = wzFilter & Chr$(0)
wzFilterIndex = 1
wzInitialDir = CurrentProject.Path & "\"
wzView = 1
wzflags = 64
wzfOpen = True

ret = WizHook.GetFileName(wzhwndOwner, _
wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
wzInitialDir, wzFilter, wzFilterIndex, _
wzView, wzflags, wzfOpen)

' Si no se ha pulsado el botón Cancelar (-302)
If ret <> -302 Then
Me.txtarquivo = wzFile
End If
END SUB


no evento clique do botão abrir arquivo;
coloque
wzGetFileName

será colocado nesse campo txtarquivo, o nome do caminho completo e o nome do arquivo que vc fez o upload.
dessa forma poderá fazer o que quiser, visualizar, copiar, colar, salvar em bd

Fiz como disse,ao clicar no botão eu acho o arquivo,mas para abrir o arquivo como faço.

crie um modulo com dados abaixo. utilize "ptrsafe" conforme descrito abaixo somente se seu access for 64 bits, caso contrario tire.

Option Compare Database

Declare PtrSafe Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As LongPtr, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr


crie outro botão, ou coloque no evento clique da caixa de texto ou do botão.

On Error Resume Next
Dim strArquivo As String
strArquivo = Me.txtarquivo.Value
Call ShellExecute(0, vbNullString, strArquivo, vbNullString, vbNullString, 1)

Agora sim,perfeito, muito obrigado amigo,valeu mesmo.