Private Sub ComboBoxHauptauswahl_SelectedIndexChanged(ByVal sender As Object, _
   ByVal e As System.EventArgs) Handles _
   ComboBoxHauptauswahl.SelectedIndexChanged
 
        Dim selStr As String = "SELECT * FROM " & ComboBoxHauptauswahl.Text & ""
 
        ds = New Data.DataSet
        da = New Data.OleDb.OleDbDataAdapter(selStr, conn)
 
        cmd = New Data.OleDb.OleDbCommandBuilder(da)
        Try
            conn.Open()
            da.Fill(ds, "Teile")
        Catch ex As Exception
            MsgBox("Fehler beim öffnen!")
            conn.Close()
        End Try
 
        conn.Close()
 
        DataGridHauptauswahl.DataSource = ds
        DataGridHauptauswahl.DataMember = "Teile"
 
    End Sub

        Dim cb As Data.SqlClient.SqlCommandBuilder
        Dim dataAdapter As New Data.SqlClient.SqlDataAdapter
 
        Dim DelRecords As Data.DataTable = CType( _
          Me.DataGridHauptauswahl.DataSource, Data.DataTable).GetChanges( _
          Data.DataRowState.Deleted) ' Hier kracht es schon das erste Mal
        Dim UpdRecords As Data.DataTable = CType( _
        Me.DataGridHauptauswahl.DataSource, Data.DataTable).GetChanges( _
        Data.DataRowState.Modified)
        Dim InsRecords As Data.DataTable = CType( _
        Me.DataGridHauptauswahl.DataSource, Data.DataTable).GetChanges( _
        Data.DataRowState.Added)
 
        If Not UpdRecords Is Nothing And UpdRecords.Rows.Count > 0 Then
            dataAdapter.Update(UpdRecords)
        End If
 
 
        Try
            If Not DelRecords Is Nothing Then
                cb = New Data.SqlClient.SqlCommandBuilder(dataAdapter)
                dataAdapter.DeleteCommand = cb.GetDeleteCommand
                dataAdapter.Update(DelRecords)
                DelRecords.Dispose()
            End If
 
            If Not UpdRecords Is Nothing Then
                cb = New Data.SqlClient.SqlCommandBuilder(dataAdapter)
                dataAdapter.UpdateCommand = cb.GetUpdateCommand
                dataAdapter.Update(UpdRecords)
                UpdRecords.Dispose()
            End If
 
            If Not InsRecords Is Nothing Then
                cb = New Data.SqlClient.SqlCommandBuilder(dataAdapter)
                dataAdapter.InsertCommand = cb.GetInsertCommand
                dataAdapter.Update(InsRecords)
                InsRecords.Dispose()
            End If
 
            ds.AcceptChanges()
            DataGridHauptauswahl.Refresh()
            ' gridAngebotPos.Update() 
            ' sqlcommandbuilder = New SqlCommandBuilder(dataAdapter) 
            ' dataAdapter.Update(myDataSet, "D_AngebotPos") 
        Catch ex As Data.SqlClient.SqlException
            MsgBox(ex.ToString)
        End Try
 
        MsgBox("Änderungen gespeichert!")