TableAdapter.Update no actualiza la BD

[robertgustavo]

PORSUPUESTO QUE ACTUALIZA,

crea un boton que se llame . actualizar base de datos

dim da as new oledbdataadapter
dim bs as new bindingsource

este es el sub que la actualiza

Private Sub ActualizarDatabase()
Try
Dim CmB As New OleDbCommandBuilder(Da)
Da.Update(AlmacenDatos, "productos")
Catch ex As Exception
MessageBox.Show(ex.Message.ToString, "Error Inesperado ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
AlmacenDatos.Tables("productos").Clear()
Da.Fill(AlmacenDatos, "productos")
GridProductos.DataSource = Bs 'AlmacenDatos.Tables("productos")
End Try