Private Sub enableLastRow(ByVal dg As DataGrid, ByVal enable As Boolean)
Dim bc As BindingManagerBase = Me.BindingContext(dg.DataSource,
dg.DataMember.ToString())
Dim cm As CurrencyManager
cm = CType(bc, CurrencyManager)
CType(cm.List, DataView).AllowNew = enable
End Sub