J'ai ce code, dites-moi svp ce qui ne va pas et pourquoi je n'arrive pas à supprimer?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
        Dim cmd As SqlCommand = New SqlCommand("Select * from articles_design where idarticle =" & Val(Me.dgvDesignation.CurrentRow.Cells(0).Value), cnx)
        Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        Dim CmdBuild As SqlCommandBuilder
        ds.Clear()
        da.Fill(ds, "articles_design")
        '--
        Dim i As Integer
        ds.Tables("articles_design").Rows(i).Delete()
        CmdBuild = New SqlCommandBuilder(da)
        da.Update(ds, "articles_design")
        ds.Clear()
        da.Fill(ds, "articles_design")
        Dim dt As DataTable
        dt = ds.Tables("articles_design")
        Me.dgvDesignation.DataSource = dt
        Me.dgvDesignation.Refresh()