Dim da As New MySqlDataAdapter("select * from hersteller", clsMain.conn)
    Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da)

            Dim arr As New ArrayList
            For i As Integer = 0 To DirectCast(dg1.DataSource, _
              DataTable).Rows.Count - 1
                If dg1.IsSelected(i) Then
                    arr.Add(i)
                End If
            Next
            For Each i As Integer In arr
                clsMain.ds.Tables("hersteller").Rows(i).Delete()
            Next

            da.Update(clsMain.ds, "hersteller")
            clsMain.ds.Tables("hersteller").AcceptChanges()