الخطأ في التسمية الخاصة بمكان ملف الداتا بيز...انصحك أن تضعه داخل Bin فولدر و تستخدم Application Startup لاسترجاع مكان تشغيل برنامجك و تضيف لها اسم الملف
عموما حاول أن تحذف كلمة DATA SOURSE التي بين الاقواس
كود :
Dim dbsourse As String = "C\Users.......الي نهاية الاسم الخاص بمكان الملف