Updating/Inserting into DataSource from a DataSet with multiple Tables

[Nasty2]

Hey all,

I got a DataSet with 8 DataTables inside..... Filled the DataSet with the following code:

            Dim conn As New MySqlConnection
            Dim ECNDA As MySqlDataAdapter
            Dim tablenames() As String = {"BopOptions", "BomRouting", "ProgramChanges", "StockedParts", "JigTools", "Status", "ChangeCategories", "Originators"}

            For i As Integer = 0 To tablenames.GetUpperBound(0)
                Dim sql As String = "Select " & tablenames(i) & ".* From " & tablenames(i)

                If ConfigurationSettings.AppSettings("CompLocation") = "1" Then
                    conn.ConnectionString = connStringLocal
                End If
                If ConfigurationSettings.AppSettings("CompLocation") = "2" Then
                    conn.ConnectionString = connStringForeign
                End If

                ECNDA = New MySqlDataAdapter(sql, conn)
                Dim myTable As New DataTable(tablenames(i))
                ECNDA.Fill(myTable)
                COMBOSDS.Tables.Add(myTable)
                conn.Close()
            Next

It seems to work fine....... this is the right way to do things, right?

How can I insert the changes I have done to one particular Table into the DataBase?
I searched around for an answer, but only got examples using one table in the DataSet.

Thanks

[jhammer]

check the SQLDataAdapter.Update method. You pass a Dataset and a Table name.

[Nasty2]

I just can't get it.

I am declaring a MySqlDataAdapter and a DataSet as Global so I can use them for various forms.
I am populating my DataSet with 8 Tables with the following code:

Dim conn As New MySqlConnection

            Dim tablenames() As String = {"BopOptions", "BomRouting", "ProgramChanges", "StockedParts", "JigTools", "Status", "ChangeCategories", "Originators"}
            For i As Integer = 0 To tablenames.GetUpperBound(0)
                Dim sql As String = "Select " & tablenames(i) & ".* From " & tablenames(i)

                If ConfigurationSettings.AppSettings("CompLocation") = "1" Then
                    conn.ConnectionString = connStringLocal
                End If
                If ConfigurationSettings.AppSettings("CompLocation") = "2" Then
                    conn.ConnectionString = connStringForeign
                End If

                COMBOSDA = New MySqlDataAdapter
                COMBOSDA.SelectCommand = New MySqlCommand(sql, conn)
                Dim custCB As MySqlCommandBuilder = New MySqlCommandBuilder(COMBOSDA)
                Dim myTable As New System.Data.DataTable(tablenames(i))
                conn.Open()
                COMBOSDA.Fill(myTable)
                COMBOSDS.Tables.Add(myTable)
                conn.Close()
            Next

I then make all the changes that I need to do to the DataSet.
I tried using the Update method

COMBOSDA.Update(COMBOSDS.Tables("BomRouting"))

....but nothing is written to the Database and no error is shown

Is it because I am closing the connection in the first code snippet?