Ændringer i datarow ignoreres

Jeg har et lille problem med at ændre på nogle datarows...
Er dette ikke en korekte fremgangsmåde?

For Each dr As DataRow In dt.Rows
                dr.BeginEdit()
                dr("Topic") = "bla"
                dr.EndEdit()
                dr.AcceptChanges()
            Next