Private Sub dg_Projekte_KeyUp(ByVal sender As Object, ByVal e As _
       System.Windows.Forms.KeyEventArgs) Handles dg_Projekte.KeyUp
        If e.KeyCode = Keys.Delete Then
            tabname = tabellenname_ermitteln(dg_Projekte.DataMember) _
              'tabellennamen wird in seperater Function ermitteln
            Select Case tabname 'unterscheiden welche tabelle im DataGrid 
            ' angezeigt wird
                Case "Projekte"
                    SqlData_Auftrag.Update(Data_Projekte, "Aufträge")
                    SqlData_Projekte.Update(Data_Projekte, "Projekte")
                    SqlData_Auftrag.Fill(Data_Projekte, "Aufträge")
                    SqlData_Projekte.Fill(Data_Projekte, "Projekte")
                Case "Aufträge"
                    SqlData_Auftrag.Update(Data_Projekte, "Aufträge")
                    SqlData_Auftrag.Fill(Data_Projekte, "Aufträge")
            End Select
        End If
    End Sub

Private Sub dg_Mitarbeiter_KeyUp(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles dg_Mitarbeiter.KeyUp
        If e.KeyCode = Keys.Delete Then
                SqlData_Mitarbeiter.Update(Data_Projekte, "Mitarbeiter")
                SqlData_Mitarbeiter.Fill(Data_Projekte, "Mitarbeiter")
        End If
End Sub
 
Private Sub dg_kostenstellen_KeyUp(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles dg_kostenstellen.KeyUp
        If e.KeyCode = Keys.Delete Then
                SqlData_Kostenst.Update(Data_Projekte, "Kostenst")
                SqlData_Kostenst.Fill(Data_Projekte, "Kostenst")
        End If
End Sub