How to update a datarow

[Nose]

Hallo gasten,
Ik heb een probleem met het opslaan van een datarow in vb.net.
Voor het selecten van de datarow doe ik het volgende:
m_selectQuery = "SELECT * FROM Client WHERE ClientID= 420
Command = New SqlCommand(m_selectQuery, Connection)
DataAdapter.SelectCommand = Command
DataTable.Reset()
DataAdapter.Fill(DataTable)
DataReader = Command.ExecuteReader
If DataTable.Rows.Count = 0 Then
myrow = DataTable.NewRow()
myrow(KeyName) = -1
Else
myrow = DataTable.Rows(0)
End If

Voor het opslaan doe ik het volgende:

MyRow("Street") = "Dorpstraat" 'wijzig de colom street
DataTable.AcceptChanges()
DataAdapter.Update(MyRow.Table.DataSet)

Dit geeft geen foutmeldingen echter is er na de update in de database niets verandert
Iemand suggesties?

Dank dank

Nose