[zsoft]

شكرا اخي العزيز قمت بعمل الفكرة مسبقاً ولاكن مشكلتي في جملة الاتصال
خاصة وان جملة الاتصال في Module

اريد تغيير جملة الاتصال

كود :

Dim cons As String = ("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                         "Data source =" & Application.StartupPath & "\Test.accdb;" & _
                         "Jet OLEDB:Database password=123")

بخيث يتغير المسار حسب متغير مثلاً قمت بعمل الفكرة ولاكني واجهة مشكلة

من فضلك شوف المثال المرفق