Private Sub bKategorieDel_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles bKategorieDel.Click
        Try
            'den zu ändernden Datensatz suchen und als Delete markieren
            Dim rw As DataRow
            For Each rw In dtKategorie.Rows
                'das in der Listbox ausgewählte Value als delete markieren
                If rw!Kategorie = lbKategorie.Text Then
                    rw.Delete()
                End If
            Next
            Dim SQLDelete As String
            SQLDelete = "DELETE FROM Kategorie WHERE Kategorie='" & _
              lbKategorie.Text & "'"
            cKategorie.Connection = conn
            cKategorie.CommandText = SQLDelete
            daKategorie.DeleteCommand = cKategorie
            conn.Open()
            daKategorie.Update(dtKategorie)
            dtKategorie.Clear()
            SQLSelect()
            daKategorie.Fill(dtKategorie)
            emptyRowAdd(dtKategorie)
            conn.Close()
        Catch ex As Exception
            MessageBox.Show("Fehler: " & ex.Message)
        Finally
            'die Verbindung wird unwiderruflich geschlossen
            conn.Dispose()
        End Try
    End Sub
 
    Private Sub SQLSelect()
        Dim SQLSelect As String
        SQLSelect = "SELECT IDKategorie, Kategorie FROM Kategorie"
        cKategorie.Connection = conn
        cKategorie.CommandText = SQLSelect
        daKategorie.SelectCommand = cKategorie
    End Sub
 
    Private Sub emptyRowAdd(ByVal dt As DataTable)
        Dim rw As DataRow = dt.NewRow
        rw("Kategorie") = ""
        dt.Rows.Add(rw)
    End Sub