يتم الآن التحميل فضلاً انتظر سيتم تحويلك عند الانتهاء ...... size:18pt">هنا تستطيع تحميل الصور لوضعها فى مواضيع الموقع تحميل الصور

Public Sub GetCon() Con = New OleDbConnection Dim Path As String = Application.StartupPath Con.ConnectionString = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Path & "\Info.accdb;Persist Security Info=False;" Con.Open() End Sub