Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
 
        If DieTabelleBindingSource.Current Is Nothing Then Return
 
        If MsgBox("Satz löschen? Wirklich? Ganz sicher??", _
          MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Me.DieTabelleBindingSource.RemoveCurrent()
        End If
 
    End Sub
 
    Private Sub DieTabelleBindingSource_CurrentChanged(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles _
      DieTabelleBindingSource.CurrentChanged
        Me.BindingNavigatorDeleteItem.Enabled = _
        Me.DieTabelleBindingSource.Current IsNot Nothing
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist