[احمد خطاب]

السلام عليكم اصدقاءى واخواتى الاعزاء 
عند تحزيم البرنامج وجعل قاعدة البيانات يتم قراءتها من اى مكان تظهر لى هذه الرسالة 
C:\Users\mmsspptt\AppData\Roaming\test\sss.accdb' is not a valid path.  Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides
علما بان الكود هو 
Imports System.Data.OleDb

Public Class Form1

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & (Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) & "\test\ sss.accdb")

    Dim da As New OleDbDataAdapter

    Dim dt As New DataTable

    Dim cmd As New OleDbCommand
    Dim K As String 
كما ان 
roaming - aptade 
لاتظهر عند البحث عنها

[5000]

توجد مسافة قبل اسم ملف قاعدة البيانات وهذه تؤثر على التحقق من وجود الملف

تأكد من وجود مجلد باسم test وأن قاعدة البيانات بالإسم المطلوب موجود بداخله

الافضل ان تعمل متغير مستقل لاسم الملف مثل
dim fn=Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\test\sss.accdb"
ثم اضافته لنص الإتصال مثل
dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fn)