<appSettings>
    <add key="Tek_DB_source" value="dbjp" />
    <add key="Tek_DB_user" value="name" />
    <add key="Tek_DB_pass" value="geheim" /
  </appSettings>

Dim DB_soure As String = System.Configuration.ConfigurationSettings.AppSettings( _
  "Tek_DB_Source")

Imports System.Collections.Generic
Imports System.Text
Imports System.Configuration
Imports System.Configuration.ConfigurationSettings