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