dc = dt.Columns.Add("Name", GetType(String))
        dc.Unique = True

    Private Sub DataGridView1_DataError(sender As Object, e As _
      DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
        MsgBox("Invalid data in column " & (e.ColumnIndex +1).ToString())
        e.Cancel = True
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist