'BELOW TO SHOW FILES FILTERED BY EXTENSION
DBFilePath = File.DirRootExternal
Dim filefrom As FileDialog
filefrom.FilePath=DBFilePath
filefrom.FileFilter=".db"
'BELOW TO SHOW FILES FILTERED BY EXTENSION
filefrom.Show("List Of db files", "", "", "", Null)