What does that mean? You don’t want to display the dialog? Then use GetFolderItem instead of GetOpenFolderItem. Otherwise, please explain what you want in more detail.
If the database is in a predetermined path, you can bypass the dialog and use some combination of GetFolderItem / SpecialFolder / FolderItem.Child to get to it. For example, if the database is in the user’s Desktop with a fixed name, you can use
Dim dbFile As FolderItem = SpecialFolder.Desktop.Child("TCP_GSM.sqlite")