[sads]

السلام عليكم أحبابي 
ممكن مساعدة بسيطة لكود ربط قاعدة بيانات الأكسس بالفيجول من خلال أداة  OpenFileDialog 

لدي هذا كود الإتصال في مكان التعريفات بأعلى الأكواد

 Dim con As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\ABC.accdb")

ولدي كود فتح OpenFileDialog

 OpenFileDialog1.Filter = "TEXT FILE | *.accdb"

        If OpenFileDialog1.ShowDialog = DialogResult.OK Then

            TextBox23.Text = OpenFileDialog1.FileName

            End If

كيف أدمج الكودين ليتم إختيار قاعدة البيانات من الكمبيوتر لدي

أقصد أني لا أريد أن تكون قاعدة البيانات ثابتة في مكان معين