un ajout simple mais faux

Bonjour,
J'ai fait un ajout à partir de ma datagridview dans une autre datagridview, mais la ligne selectionnée ne sera pas ajoutée.
Celle qui suit sera ajoutée. Que pensez vous? Et pouvez vous m'indiquer comment corriger 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
39
40
41
42
43
 
    Private Sub DataGridView1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DataGridView1.KeyPress
        Dim cnx As New SqlConnection
        cnx.ConnectionString = ("Data Source=PC\SQLEXPRESS;Initial Catalog=Fournisseur;Integrated Security=True;Pooling=False;")
        cnx.Open()
 
        Dim val1, val2 As String
 
        Dim val As Integer
        val = CInt(DataGridView1.SelectedRows(0).Cells(0).Value)
 
        val1 = DataGridView1.SelectedRows(0).Cells(5).Value.ToString
        val2 = DataGridView1.SelectedRows(0).Cells(6).Value.ToString
 
 
        Try
 
            Dim cmd As New SqlCommand("insert into LignedeTicket(NumLigne,NumTicket,Code_a_Barre,DesignationArt,Prix_Vente_TTC,Qté)select isnull(max(NumLigne),0) + 1,'" & Caisse.NumTicket.Text & "','" & val & "','" & val1 & "','" & val2 & "',1 from LignedeTicket", cnx)
 
            Dim affectedrows As String = cmd.ExecuteNonQuery()
 
            Dim cmd1 As New SqlCommand("SELECT * FROM LignedeTicket", cnx)
            Dim dt As New DataTable
 
 
            Dim ObjDataAdapter As SqlDataAdapter
            Dim ObjDataSet As New DataSet
 
            ObjDataAdapter = New SqlDataAdapter(cmd1)
            ObjDataAdapter.Fill(ObjDataSet, "LignedeTicket")
            dt = ObjDataSet.Tables("LignedeTicket")
 
            Caisse.DataGridView1.DataSource = dt
            Caisse.DataGridView1.SelectedColumns.ToString()
 
        Catch ex As Exception
            MsgBox("Article déjà ajouté !", MsgBoxStyle.Critical)
 
        End Try
        cnx.Close()
 
        Me.Close()
    End Sub

Merci de m'aider.