Object binding to a BindingSource (and probably a DataGridView) – Add New Item

Private Sub DecisionBindingSource_AddingNew(ByVal sender As System.Object, ByVal e As System.ComponentModel.AddingNewEventArgs) Handles DecisionBindingSource.AddingNew

    Try
        Dim dNew As New Decision
        dNew.DateInput = Today
        dNew.IsNew = True
        dNew.StatusID = Decision.StatusIDEnum.Current

        'Lambda
        Dim dList As IList(Of Decision) = CType(DecisionBindingSource.DataSource, IList(Of Decision))
        dNew.ID = dList.Max(Function(d) d.ID) + 1
        e.NewObject = dNew

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

End Sub