Private ds As DataSet
    Private conn As SqlClient.SqlConnection
    Private da As SqlClient.SqlDataAdapter
 
 
    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 SqlClient.SqlDataAdapter(selStr, conn)
 
        Dim cb As New SqlClient.SqlCommandBuilder(da)
        Try
            da.Fill(ds, "Teile")
        Catch ex As Exception
            MsgBox("Fehler beim öffnen!")
            Return
        End Try
 
        Me.CategoriesDataGridView.DataSource = ds
        Me.CategoriesDataGridView.DataMember = "Teile"
 
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        da.Update(ds, "Teile")
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist