Spero che non mi mandiate a quel paese,

ho fatot questo e ora non da errore ma non fa nulla ...

codice:
    Private Sub InsertDataSet()

        Dim oConn1 As New OleDbConnection("Provider=MySqlProv;Data Source=xxx;Port=3306;User ID=root;Password=;Location=localhost;")
        Dim oConn2 As New OleDbConnection("Provider=MySqlProv;Data Source=yyy;Port=3306;User ID=root;Password=;Location=localhost;")

        Dim ds As DataSet = New DataSet()
        Dim da As New OleDbDataAdapter()
        da.SelectCommand = New OleDbCommand("SELECT Esito FROM myTable", oConn1)
        Dim custCB As OleDbCommandBuilder = New OleDbCommandBuilder(da)
        da.Fill(ds, "myTable")


        da.InsertCommand = New OleDbCommand("INSERT INTO myTable(Esito) VALUES(@Esito)", oConn2)
        da.InsertCommand.Parameters.Add("@Esito", OleDbType.VarChar, 50, "Esito")
        da.Update(ds, "myTable")

    End Sub