Not working syntax on insert? Urgent

[macupryk]

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()