HOLA

Tengo un problema para actualizar la base de datos, ya que tengo un base de datos con diversos valores, cuando quiero modificar una celda especifica me dice que la actualiza pero cuando voy a la base de datos esta el mismo dato anterior. o sea, no me edita la celda. tengo el siguiente codigo:

Dim valor As Integer
valor = MsgBox("Al cambiar la dirección IP en el software, se debe configurar en el equipo" & vbCrLf & "¿Desea Continuar?", MsgBoxStyle.Exclamation Or MsgBoxStyle.OkCancel Or MsgBoxStyle.DefaultButton2, "Advertencia")

If valor = MsgBoxResult.Ok Then

MyC_ETSDataSet1.Direcciones_IP.Rows(0).Item("Direc ción IP") = TextBox2.Text
Try
'MyC_ETSDataSet1.GetChanges()
MyC_ETSDataSet1.Direcciones_IP.GetChanges()
' DireccionesIPBindingSource.EndEdit()
MyC_ETSDataSet1.Direcciones_IP.Rows(0).AcceptChang es()
Direcciones_IPTableAdapter.Update(MyC_ETSDataSet1)
MyC_ETSDataSet1.AcceptChanges()
MsgBox("Base de Datos Actualizada", MsgBoxStyle.MsgBoxRight)

Catch ex As Exception
MsgBox("Base de Datos NO Actualizada" & ex.Message, MsgBoxStyle.Exclamation)
End Try

LinkLabel4.Text = MyC_ETSDataSet1.Direcciones_IP.Rows(0).Item("Direc ción IP")
strAgent = MyC_ETSDataSet1.Direcciones_IP.Rows(0).Item("Direc ción IP")
End If
TextBox2.Visible = False

el dato que quiero guardar lo toma desde un textbox, donde por teclado le introduzco el valor.

por favor si me pueden ayudar gracias