Move this line:

Code:
oAdapter.UpdateCommand.Parameters.Add("@ID", OleDbType.Integer, 5, "[ID]")
To the bottom of the parameters.add list.