actualizar dataset

buenas, mi problema es el siguiente, tengo un datagrid que muestra el
contenido de una tabla pero cuando lo kiero modificar unicamente me lo
modifica si cambio el contenido de todos los campos de la tabla, si cambio
unicamente uno no se actualiza la tabla...el update no da ningun error pero
no lo modifica...el porke de todo esto...pos no lo se, a ver si alguien me lo
puede decir...gracias

Friend Sub grabar(ByVal ds As DataSet)
Dim adapter As New SqlCeDataAdapter("select * from " & nombretabla,
conexion)
Dim Tran As SqlCeTransaction = conexion.BeginTransaction
Try
adapter.SelectCommand.Transaction = Tran
Dim X As New SqlCeCommandBuilder(adapter)
adapter.Update(ds.Tables(nombretabla))
Tran.Commit()
MsgBox("Datos grabados con éxito")
Catch Ex As SqlCeException
MsgBox(ex.Message, MsgBoxStyle.ApplicationModal)
Catch Ex As DBConcurrencyException
MsgBox(ex.Message, MsgBoxStyle.ApplicationModal)
Catch Ex As Exception
MsgBox(ex.Message, MsgBoxStyle.ApplicationModal, "error mensaje")
End Try