[elgokr]

كما اشار اليه اخى DK-x

ولكن للتوضيح هذا السطر

كود :

Dim con As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & My.Settings.File)

يضع خارج اى نظاق الحدث حسب طريقتك لكتابة كود الاتصال

وتاتى فى زر اختيار قاعدة البيانات فى حدث الزر واكتب

كود :

       Dim OpenFileDialog1 As New OpenFileDialog
       OpenFileDialog1.Filter = "DB Access FILE | *.accdb"
       If OpenFileDialog1.ShowDialog = DialogResult.OK Then
           My.Settings.File = OpenFileDialog1.FileName
   My.Settings.Save
   End If

تحياتى لك

وتمنياتى لك التوفيق