Using the Common Dialog control: Return to List

' Place the Common Dialog control on your form and call it CommDlg1

  Dim MyTempFile As String' String to Hold the Filename
  
With CommDlg1
  
    .FileName = "*.mdb"
  
    .Flags = "&H4"
  
    .ShowOpen
  
End With
  
MyTempFile = CommDlg1.FileName