Public Class Form1
 
Private Sub DataTable1_ColumnChanging(ByVal sender As Object, ByVal e As _
  System.Data.DataColumnChangeEventArgs) Handles DataTable1.ColumnChanging
        Throw New ArgumentException("test", "test2", Nothing)
End Sub
 
Private Sub DataGridView1_DataError(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles _
  DataGridView1.DataError
        If e.Exception Is Nothing Then Return
        Me.DataGridView1.Rows(e.RowIndex).ErrorText = e.Exception.Message
        e.Cancel = True
    End Sub
End Class