Private Sub DataGridView1_DataError(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) _
        Handles DataGridView1.DataError
 
        MsgBox(e.Exception.Message)
        e.Cancel = True
    End Sub