Private Sub DataGrid1_DeleteCommand(ByVal source As Object, _
    ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) _
    Handles DataGrid1.DeleteCommand
 
        SqlConnection1.Open()
        cmddelete.ExecuteNonQuery()
        SqlConnection1.Close()
        DataGrid1.DataBind()
    End Sub

Me.cmddelete.CommandText = "DELETE FROM dbo.k1t001eichvorgab WHERE (tragl_code" & _
  "= '00')"
        Me.cmddelete.Connection = Me.SqlConnection1