[mrfodri]

قم بإنشاء متغير في الSettings الخاص بالمشروع باسم s1 مثلا

ضع هذا الكود في بداية الحدث Form1_Load

كود :

       If IO.File.Exists(My.Settings.s1) = False Then
           Dim OpenFileDialog1 As New OpenFileDialog
           OpenFileDialog1.Filter = "database|*.mdb"
           If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Close()
           My.Settings.s1 = OpenFileDialog1.FileName
       End If
       con = New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.s1 & "")