[princelovelorn]

(07-10-18, 01:35 AM)asemshahen5 كتب : جرب هذا :

كود :

   Public Sub New()
       Dim Path_ = My.Application.Info.DirectoryPath.ToString
       sqlcon = New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Path_ & "\Myasd.DLL;user id=admin;jet oledb:database password=1234567890")
   End Sub

أو هذا :

كود :

   Public Sub New()
       sqlcon = New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\Myasd.DLL;user id=admin;jet oledb:database password=1234567890")
   End Sub

بارك الله فيك أخي 
الكودين شغالين تمام
وتم حل مشكلة نص الأتصال والحمد لله
ويتبقى السؤال الرئيسي وهو طريقة استخدام المتغيرات العامة باسلوب ال interface
لقد بحثت قليلا ووجدت بعض الاجابات بانه لا يقبل المتغيرات اصلا ولكن يقبل الثوابت والدوال والاجراءات
فكنت محتاج تأكيد من أساتذتى في المنتدى على هذة المعلومة
هل هي صحيحة أم خاطئة ؟
وإن كانت صحيحة الا توجد اي طريقة غير مباشرة لاستدعاء متغيرات عامة واعطائها قيمة باستخدام هذا الاسلوب
وإن كانت خاطئة فكيف هي الطريقة 

والحمد لله والشكر لله
وشكرا لكل أساتذتي وأخواني في المنتدى