Dim rowsaff As Integer = 0

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

        MsgBox(rowsaff)
        ref()

' msgbox shows "1" when executed
' when i check the table data it still shows the data in the database
' please guide me in the right direction