Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnDel.Click
        Dim dt As New DataTable("Kasse")
        dt = ds.Tables.Item(0)
        Dim dv As New DataView(dt)
 
        If dv.Count = 0 Then
            MessageBox.Show("Kein Datensatz vorhanden!", "Information", _
              MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        Else
            Dim col As New Collection
            dv = CType(CType(Me.BindingContext(dv), CurrencyManager).List, _
              DataView)
            For i As Integer = 0 To dv.Count - 1
                If dgKasse.IsSelected(i) Then col.Add(dv.Item(i).Row)
            Next
            If col.Count = 0 Then
                MessageBox.Show("Kein Datensatz zum löschen ausgewählt, Sie" & _
                  "müssen erst einen Datensatz auswählen bevor Sie auf" & _
                  "stonieren klicken", "Info!", MessageBoxButtons.OK, _
                MessageBoxIcon.Information)
                Exit Sub
            Else
                Dim dialog As DialogResult
                DialogResult = MessageBox.Show("Wollen Sie die Daten wirklich" & _
                  "löschen?", "Information", MessageBoxButtons.YesNo, _
                  MessageBoxIcon.Exclamation)
                If DialogResult.Yes Then
 
                    For k As Integer = 1 To col.Count
                        CType(col.Item(k), DataRow).Delete()
                    Next
 
                    Dim da As New OleDbDataAdapter("Select * from kasse", conn)
                    Try
                        conn.Open()
                        ' code zum löschen der markierten Zeile
                        da.fill(ds, "Kasse")
                        MessageBox.Show("Datensatz wurde gelöscht!", _
                          "Information", MessageBoxButtons.OK, _
                          MessageBoxIcon.Information)
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    Finally
                        conn.Close()
                    End Try
                   'Load prozedur
                   loadDB()
                End If
            End If
        End If
    End Sub