If you want to insert DON'T do this
Dim dr As DataRow = CType(bm.Current, DataRowView).Row
Dim addform As New AddTransOverride(dr)
Dim retval As DialogResult = addform.ShowDialog()
the above will modify the current row you are on, but do somethiing like this
Dim dr As DataRow = bm.addnew 'or bm.new I don't have vs on this machine so I can't check
Dim addform As New AddTransOverride(dr)
Dim retval As DialogResult = addform.ShowDialog()