Collection et sql server Execution requete

Voici le code de ma connexion a la base de donnée:

Code:

1
2
3
4
5
6
Module Connexion
    Private m_connexion As SqlConnection
    'Connexion SQLServer => Sans Authentification Windows
    Public MyConnexion = New SqlConnection("Data Source=(local);Initial Catalog=PPE6_G1;User Id=X;Password=YYYY;")
    End Sub
End Module

Le proble c'est que j'arrive pas a trouvé comment executé la requete qui est bonne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Try
 
              If cbNum.Text = "" Then
                  Dim unDonateur As New Donateur(tbNom.Text, TbPrenom.Text, TbAdresse.Text, tbGsm.Text)
                  Dim requete As String = "insert into personne values('" + unDonateur.Lire_Nom + "','" + unDonateur.Lire_Prenom + "','" + unDonateur.Lire_adresse + "','" + unDonateur.Lire_Gsm + "');"
 
                  Dim cmd = New SqlCommand(requete, SqlConnection())
                  Try
                      cmd.ExecuteNonQuery()
                  Catch ex As Exception
                      MessageBox.Show(ex.Message)
                  End Try
 
                  'Message pour confimer l'ajout
                  MessageBox.Show("Le donateur a été ajouté.")<br><br>

L'erreur a lieu a la ligne 7