Mine

Dim rowsaff As Integer = 0

        rowsaff = Me.EggsTableAdapter.DelEgg(lbEggs.SelectedValue)
        EggsTableAdapter.Update(SSDataSet.Eggs)

        MsgBox(rowsaff)
        ref()

' msgbox shows "1" when executed
' when i check the table data it still shows the data in the database
' here i also specify the table name "Eggs" to be updated