Uhmm pues esta muy raro pues probé la solución con algunos datos de mi BD y va muy bien haz esto, deja esta línea así:
adp.Fill(ds)
Y esta línea va así:
Código vb:
Ver originaladp.Update(ds)
ds.Tables(0).AcceptChanges()
Primero el
adp.Update(ds), intenta de esta manera a ver que sucede.
Saludos.