Problema con sentencia UPDATE

[TECKNOCK]

Para obtener los datos de una tabla y poder manejarlos en el programa:

SQL = "SELECT * FROM Mi_Tabla"
da = New OleDb.OleDbDataAdapter(SQL, con)
da.Fill(ds, "Mi_Tabla")

Para agregar un Dato:

'Creamos el Nuevo registro
Dim Nuevo_Reg AsDataRow = ds.Tables("Mi_Tabla").NewRow()
Nuevo_Reg.Item("Campo_1") = "Mi dato 1"
Nuevo_Reg.Item("Campo_2") = "Mi dato 2"
Nuevo_Reg.Item("Campo_3") = "Mi dato 3"

'Agregamos el nuevo Registro a la Tabla
ds.Tables("Mi_Tabla").Rows.Add(Nuevo_Reg)

'Cargamos el DA en el CB para que pueda realizar operaciones en la BD
cb.DataAdapter = da

'Actualizamos la BD

da.Update(ds, "Mi_Tabla")

Para modificar un Dato:

'Accedemos al Registro
ForEach Registro AsDataRowIn ds.Tables("Mi_Tabla").Rows
If Registro.Item("ID") = "El ID del registro" Then
Registro.Item("Campo_1") = "Mi nuevo dato 1"
Registro.Item("Campo_2") = "Mi nuevo dato 2"
Registro.Item("Campo_3") = "Mi nuevo dato 3"
EndIf
Next

'Cargamos el DA en el CB para que pueda realizar operaciones en la BD
cb.DataAdapter = da

'Actualizamos la BD

da.Update(ds, "Mi_Tabla")