[khaled Mohammed]

(22-09-20, 01:50 PM)enjoy كتب : وعليكم السلام

يبدو ان هناك تعديل في محتوى ملف App.config

ف add ليست مثل Add
او Name ليست مثل name

فانتبه لحساسية الاحرف كما تشير لك الرساله

ضع محتوى الملف للتاكد

هذا محتوي الملف 
و ايضا صورة من الخطا 

كود :

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30319.42000
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On


Namespace My
   
   <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
    Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"),  _
    Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
   Partial Friend NotInheritable Class MySettings
       Inherits Global.System.Configuration.ApplicationSettingsBase
       
       Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
       
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
   Private Shared addedHandler As Boolean

   Private Shared addedHandlerLockObject As New Object

   <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
   Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
       If My.Application.SaveMySettingsOnExit Then
           My.Settings.Save()
       End If
   End Sub
#End If
#End Region
       
       Public Shared ReadOnly Property [Default]() As MySettings
           Get
               
#If _MyType = "WindowsForms" Then
              If Not addedHandler Then
                   SyncLock addedHandlerLockObject
                       If Not addedHandler Then
                           AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
                           addedHandler = True
                       End If
                   End SyncLock
               End If
#End If
               Return defaultInstance
           End Get
       End Property
       
       <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
        Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
        Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
        Global.System.Configuration.DefaultSettingValueAttribute("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\stock_DB.m"& _
           "db;Persist Security Info=True")>  _
       Public ReadOnly Property stock_DBConnectionString() As String
           Get
               Return CType(Me("stock_DBConnectionString"),String)
           End Get
       End Property
   End Class
End Namespace

Namespace My
   
   <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
    Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
    Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
   Friend Module MySettingsProperty
       
       <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
       Friend ReadOnly Property Settings() As Global.WindowsApplication4.My.MySettings
           Get
               Return Global.WindowsApplication4.My.MySettings.Default
           End Get
       End Property
   End Module
End Namespace