Connexion avec la base de donnée

Bonjour tout le monde.
Je veux connecter avec une base de données dans un serveur soit local ou distant.
j'ai ajouté dans "app.config" ces

Code:

1
2
3
4
5
6
<appSettings>
		<add key="DBServerName" value="Localhost"></add>
		<add key="DatabaseName" value="suivieDAM"></add>
		<add key="DatabaseUserID" value="sa"></add>
		<add key="DatabasePwd" value="sql.2005"></add>
	</appSettings>

et dans la forme "connexion"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub user_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
      ' Dim lines() As String = IO.File.ReadAllLines("C:\Conf_GAM.txt")
      '  T1.Text = lines(0)
      '  T2.Text = lines(1)
       ' T3.Text = lines(3)
      '  T4.Text = lines(4)
 
        T1.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DBServerName")
       T2.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabaseName")
        T3.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabaseUserID")
        T4.Text = System.Configuration.ConfigurationSettings.AppSettings.Get("DatabasePwd")
 
        Try
 
 
 'classuser.sqlcon.ConnectionString = "Data Source=SQL\DAM;Initial catalog=suivieDAM;Integrated security=true"
 
 classuser.sqlcon.ConnectionString = "Data Source='" & T1.Text & "' + ;Initial catalog= '" & T2.Text & "' +  ;Integrated security=true + ;User ID= '" & T3.Text & "' + ;Password='" & T4.Text & "'"
 
            MsgBox("Connection Réussie", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Mais malheureusement il m'affiche ce message en premier lieu

Pièce jointe 191230

et ce message en deuxième lieu

Pièce jointe 191229

Prière de m'aider comment résoudre ce problème