NO FUNCIONA DELETE...

Hola amig@s:

Tengo el siguiente codigo para borrar registros:

Sub Eliminar()

If Me.BindingContext(Me.objCOSTO, "COSTO_HOJA_DATOS").Count > 0 Then

If MessageBox.Show("¿Esta seguro que desea eliminar el registro?",
"Advertencia", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation,
MessageBoxDefaultButton.Button1) = DialogResult.Yes Then

Me.BindingContext(Me.objCOSTO,
"COSTO_HOJA_DATOS").RemoveAt(Me.BindingContext(Me.objCOSTO,
"COSTO_HOJA_DATOS").Position)

Me.objCOSTO.AcceptChanges()

MessageBox.Show("El registro ha sido borrado.", "Mensaje",
MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Else

MessageBox.Show("No hay registros que eliminar.", "Mensaje",
MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

End Sub

En el texto del comando eliminar del dataadapter tengo:

DELETE FROM COSTO_HOJA_DATOS
WHERE (ID_TRANSACCION = @ID_TRANSACCION)

Aparentemente borra el registro, pero cuando me salgo y vuelvo de la forma y
entro nuevamente alli esta el registro que supuestamente borre. ¿que estoy
omitiendo?

De antemano agradezco sus comentarios.

Edmundo Davila