Campos Imangens ler indiferente da extensão.

Caro, amigos!

Estou com o seguinte problema. Tenho um código que segue abaixo que só ler o formato png. Gostaria de saber se é possivel um complemento para qualquer formato seja possivel de visualizar. Vejam!

Me.ImagemAntes.Picture = CurrentProject.Path & "\div\Fotos\" & Me.txNumeroDoc & "A.png"

Fico no aguardo, obrigado!

O .Picture, não lê somente .png, lê também .jpeg, .bmp e por ae....

Certo, mas como eu faço para que a extensão seja qualquer uma? Exemplo:
Se eu colocar Me.ImagemAntes.Picture = CurrentProject.Path & "\div\Fotos\" & Me.txNumeroDoc & "." Ou seja não expecificar um extensão ele irá ler o que tem ou a extensão da imagem? E como eu faço? Entendeu?

Ok;

Lê qualquer extensão;


Dim strCaminho As String
Dim strExtensao, strFicheiro As String

strCaminho = CurrentProject.Path & "\div\Fotos\"
strFicheiro = Nz(Me.txNumeroDoc.Value,0)

strExtensao = Dir(strCaminho & strFicheiro & "*")
If strExtensao = "" Then
Exit Sub
Else
Me.ImagemAntes.Picture strCaminho & strFicheiro & "." & Right$(strExtensao, Len(strExtensao) - InStrRev(strExtensao, "."))
End If

Amanhã eu posto se conseguir ou não resolver a situação... Grato pela ajuda!

Ok, no aguardo.