Problemas al actualizar DataTable

Hola, Estoy empezando a hacer pinitos con ADO.net y me encuentro con una cosa extraña tomando como base el ejemplo de la página del Guille de acceso a BD Access Todo me funciona bien, Altas, Bajas, Adelante, Atrás, etc., Pero en las modificaciones me ocurre que cuando las confirmo en lugar de modificar la DataTable con los nuevos datos, va y me desaparece la fila del DataTable y el registro de la Base de Datos. Te dejo el código, haber si me puedes ayudar

Private Sub ButModificaciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButModificaciones.Click

If Fila < 0 OrElse Fila > MiDataTable.Rows.Count - 1 Then Exit Sub

Dim MiDataRow As DataRow = MiDataTable.Rows(Fila)
MiDataRow("Cod") = TextBoxCod.Text

MiDataRow("Titulo") = TextBoxTitulo.Text

MiDataRow("Importe") = TextBoxImporte.Text

Try

MiDataAdapter.Update(MiDataTable)

MiDataTable.AcceptChanges()

Catch ex As DBConcurrencyException

MessageBox.Show("Error de concurrencia:" & vbCrLf & ex.Message) Catch ex As Exception MessageBox.Show(ex.Message)

End Try

'Actualizar
MiDataTable =New DataTable
MiDataAdapter.Fill(MiDataTable)

End Sub