Not working syntax on insert? Urgent

[macupryk]

If you want to insert DONT 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 dont have vs on this machine so I cant check
Dim addform As New AddTransOverride(dr)
Dim retval As DialogResult = addform.ShowDialog()