Como actualizar un bd de acces

[RooseveltQ]

Buenas estoy haciendo una aplicacion para la universidad pero tengo una dificultad ya que introduzco todo los datos y me lo pasa al datagridview pero cuando cierro no se me guardan los cambios este es mi codigo si me pueden ayudar de urgencia por favor.

Dim fila As DataRow
fila = ds.Tables("bd1").NewRow
fila("cedula") = cd.Text
fila("Nombre") = nom.Text
fila("Apellido") = ape.Text
fila("Edad") = ed.Text
ds.Tables("bd1").Rows.Add(fila)
tabla.DataSource = ds
tabla.Update()
adapta.Update(ds, "bd1")