Locura con DeleteCommand Datagrid

[xknown]

No tengo idea, ni siquiera muestras el error que recibes (no somos adivinos), pero para que veas que si funciona lo que te dije, prueba este código:

Código:

Imports System.Data

Module Module1
    Sub Main()
        Dim dt As New DataTable

        Dim Items As DataColumn = New DataColumn("items")
        Items.DataType = System.Type.GetType("System.Int32")
        With Items
            .AutoIncrement = True
            .AutoIncrementSeed = 1
            .AutoIncrementStep = 1
        End With
        dt.Columns.Add(Items)
        dt.Columns.Add(New DataColumn("desc", GetType(String)))

        Dim dr As DataRow
        For i As Integer = 0 To 10
            dr = dt.NewRow
            dr("desc") = "foo " & i
            dt.Rows.Add(dr)
        Next

        For Each dr In dt.Rows
            Console.WriteLine(dr("items") & " --> " & dr("desc"))
        Next
    End Sub
End Module

Saludos