Public Sub Settings_Initialize()
        Dim Prp0 As New System.Configuration.SettingsProperty("DatabasePWD")
        Dim Prp1 As New System.Configuration.SettingsProperty("DatabaseUSR")
        Dim Prp2 As New System.Configuration.SettingsProperty("DatabaseSRV")
 
        My.Settings.Properties.Add(Prp0)
        My.Settings.Properties.Add(Prp1)
        My.Settings.Properties.Add(Prp2)
 
        My.Settings.Save()
 
        'Test
        My.Settings.DatabaseUSR = "lol"   'schlägt fehl ! warum ???
 
    End Sub

VB RULEZ !