Mine

Dim rowsaff As Integer = 0
        Dim updated As Integer = 0

        If IsNothing(SSDataSet) Then Exit Sub

        With Me
            rowsaff = .EggsTableAdapter.DelEgg(lbEggs.SelectedValue)
            updated = .EggsTableAdapter.Update(.SSDataSet.Eggs)
            MsgBox("rows affected: " & rowsaff)
            MsgBox("Updated?: " & updated)
            ref()
        End With