guardar en base de datos con acces y vb.net

[Aquaventus]

Lo que puedes hacer es primero actualizar el registro y posteriormente listar tu grilla nuevamente :

Código vb:

'BLOQUE ACTUALIZAR
        da.SelectCommand.CommandText = "UPDATE cuenta SET eneroreal = @eneroreal where enero=@enero"
 
        da.SelectCommand.Parameters.AddWithValue("@enero", DataGridView1.CurrentRow.Cells("enero").Value)
        da.SelectCommand.Parameters.AddWithValue("@eneroreal", DataGridView1.CurrentRow.Cells("eneroreal").Value)
        da.SelectCommand.Connection = miconexion
 
        miconexion.Open()
        da.SelectCommand.ExecuteNonQuery()
        miconexion.Close()
 
        'BLOQUE LISTADO
        da.SelectCommand.CommandText = "Select * from cuenta"
        da.SelectCommand.Connection = miconexion
 
        da.Fill(ds)
        miconexion.Close()
 
 
        DataGridView1.DataSource = ds.Tables(0)
 
        DataGridView1.Update()
 
        MessageBox.Show("Se Actualizo el registro con exito")
 

Saludos!.