Строка подключения базы данных к функции

Question

У меня есть функция строки соединения.Я добавил открытый файл.У меня проблема в том, что каждый раз, когда я ссылаюсь на соединение, пользователь должен выбрать базу данных.У меня нет опыта работы с функциями, и я не знаю, как с ним работать.

Ниже приведена ссылка, откуда взялся код:

Есть ли способ, которым я могу установить строку подключения, чтобы выне нужно выбирать базу данных каждый раз, когда на соединение ссылаются?

Ссылка: vb позволяет пользователю выбрать файл базы данных sql и изменить строку соединения (набор данных)

          Public Shared Function cnstr() As String


            Dim openFileDialog1 As New OpenFileDialog()
                openFileDialog1.Title = "Select Database File"
                openFileDialog1.Filter = "MS-Access Files|*.accdb"
                openFileDialog1.FileName = "PhoneBook"
                openFileDialog1.InitialDirectory = "C:\Temp"  'Suggested path for where the file could exist
                openFileDialog1.ShowDialog()

            If openFileDialog1.FileName = "" Then
                Application.Exit()  'Decide what to do when no file is selected

            End If

            Dim dbNameWithPath As String = openFileDialog1.FileName 
           'openFileDialog1.FileName is where the selected file is stored


                Return "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & dbNameWithPath

            'Original Connection String  Return "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Data\" & PhoneBook & "\PhoneBook.accdb;Jet OLEDB:Database Password="

        End Function