Olá, segue abaixo o código para este procedimento :
cdlAbrir.InitDir = "c:\documentos\"
cdlAbrir.FileName = "arquivo"
cdlAbrir.Filter = "*.mdb"
cdlAbrir.ShowOpen
sArqFolha = cdlAbrir.FileName
If cdlAbrir.Flags = 0 Then
MsgBox "Nenhum arquivo foi selecionado," & vbCrLf & _
"o programa será encerrado!", vbCritical, "Atenção"
End
End If
As propriedades colocadas :
InitDir : será o diretório padrão para seleção do arquivo
FileName : será o nome inicial do arquivo a abrir
Filter : a extensão que deverá ser selecionada
Até mais.
Rogério.