insertion dans sql server

bonjour,
dans le footer de mon gridview j'ai ajouté des controles textbox et dropdownlist avec un bouton ajouter, qui se fait lors du load de la page.
Voici le code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        lb.Text = "Ajouter"
        GridView1.FooterRow.Cells(0).Controls.Add(lb)
 
        Dim txt1 As TextBox = New TextBox
        Dim txt2 As TextBox = New TextBox
        Dim txt3 As TextBox = New TextBox
        Dim ddl As DropDownList = New DropDownList
        ddl.Items.Add(New ListItem(""))
        ddl.Items.Add(New ListItem("identification"))
        ddl.Items.Add(New ListItem("administration"))
        ddl.Items.Add(New ListItem("formation"))
        ddl.Items.Add(New ListItem("administrateur"))
        ddl.Items.Add(New ListItem("direction"))
        ddl.Items.Add(New ListItem("autre"))
 
 
 
        GridView1.FooterRow.Cells(1).Controls.Add(txt1)
        GridView1.FooterRow.Cells(2).Controls.Add(txt2)
        GridView1.FooterRow.Cells(3).Controls.Add(txt3)
        GridView1.FooterRow.Cells(4).Controls.Add(ddl)
 
        AddHandler lb.Click, AddressOf lb_Click
    End Sub
 
    Sub lb_Click(ByVal sender As Object, ByVal e As EventArgs)
        If txt1.Text <> "" And txt2.Text <> "" And txt3.Text <> "" And ddl.SelectedValue <> "" Then
            Dim SqlQuery As String = "insert utilisateur (UserID, nom_prn, mot_pass, fct_utl) values (" & txt1.Text & ", " & txt2.Text & ", " & txt3.Text & ", " & ddl.SelectedValue & ", " & ")"
            Dim MaConnexion As New System.Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\GestionnairePNT\GestionnairePNT\App_Data\gestionpnt.mdf;Integrated Security=True;User Instance=True")
            Dim Cmd As New System.Data.SqlClient.SqlCommand
            MaConnexion.Open()
            Cmd = New SqlCommand(SqlQuery, MaConnexion)
            Cmd.ExecuteNonQuery()
            MaConnexion.Close()
        End If
    End Sub

le probleme c'est que lorsque je clique sur ajouter rien ne se passe, aucune insertion n'est faite sur la base.
je vous remercie pour vos reponses