Devi usare un commandbuilder

dim builder as New OleDb.OleDbCommandBuilder(adp)
builder.DataAdapter.Update(dt)
builder.dispose