Begin Edit - DataRow

Saludos amigos

Me estoy perdiendo de algo y sospecho que es una sencillez, pero no doy
con ella. Tengo un dataset tipeado y quiero cambiar los valores de la
columna "ticket_number" de un datarow. El codigo no me da errores, pero
tampoco veo los cambios en la base de datos de SQL Server. Cualquier
ayuda, sera ben recibida. A continuacion el codigo VB:

Private Sub save_changes(ByVal _infraction_id As System.Guid)

Dim o_adapter As New roswellDataSetTableAdapters.infractionsTableAdapter

Dim o_data_table As roswellDataSet.infractionsDataTable

Dim o_row As roswellDataSet.infractionsRow



o_data_table = o_adapter.GetData

o_row = o_data_table.FindByinfraction_id(_infraction_id)



With o_row

.BeginEdit()

.ticket_number = "333"

.EndEdit()

.AcceptChanges()

End With

o_adapter.Update(o_data_table)

o_data_table.AcceptChanges()



End Sub