[معاند الحظ]

هل تقصد بتغير نص الاتصال تغير موقع ملف قاعدة البيانات؟
اذا كان كذلك 

جمعت لك كل الاحتمالات اللي وجدتها جربها 

كود :

 Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(Application.StartupPath, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(CurDir, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(Directory.GetCurrentDirectory, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(Environment.CurrentDirectory, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(My.Application.Deployment.DataDirectory, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(My.Application.Info.DirectoryPath, "Nwind.mdb")
        constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Nwind.mdb")

لكن لو مو هذا قصدك وضح اكثر لو سمحت

اما جلب اكبر عدد فايضا مافهمت عن اي عدد تتحدث ؟

---

اذا كنت تقصد ان ملف قاعدة البيانات تم حفظه في المجلدات الخاصة بجهاز المستخدم مثل المستندات abu3amer\Documents

فجرب التالي

كود :

constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "Nwind.mdb")