[DK-x]

تفضل اخي الكود جاهز
ان شاء الله
فقط انشيء Setting جديد واجعل اسمه File

كود :

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

وثم

كود :

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