I have an application in VB.net with BD in Mysql local with Xampp, what I want to do is to pass only the records of the table that have as a state “PENDING” to another similar table but in a remote MYSQL of my hosting, I have managed to do it with this code but I have obtained some errors from time to time when the application “READING FROM THE STREAM HAS FAILED” and other times “UNABLE MYSQLHOST” is executed and it omits me in insert a record.

Imports System.Data.OleDb
Imports System.Data
Imports MySql.Data.MySqlClient
Public Class Form1
    Public cm As MySqlConnection
    Public CadenaConexion As String
    Dim estado As Boolean = True
    Dim rcvdata As String = ""
    Dim contador As Integer = 0
    Dim contar_datos, num As Integer
    Dim CONDICION As String
    Dim detalle, observacion, estudiantes, registros, DECO, Nombres, Apellidos, Grado, Seccion, Dni As String
    Dim indice, tipo, contenido, fechae, fechac, lugar, id, Nombre, horaingreso, horasalida, fecha, mes, año, celular, reportado As String
 Private Sub btnincidencias_Click(sender As Object, e As EventArgs) Handles btnincidencias.Click
        Dim i As Integer
        num = Val(DataGridincidencias.RowCount - 1)

        For i = 0 To num - 1
            id = DataGridincidencias.Rows(i).Cells.Item(0).Value.ToString()
            Dni = DataGridincidencias.Rows(i).Cells.Item(1).Value.ToString()
            Apellidos = DataGridincidencias.Rows(i).Cells.Item(2).Value.ToString()
            Nombres = DataGridincidencias.Rows(i).Cells.Item(3).Value.ToString()
            fecha = DataGridincidencias.Rows(i).Cells.Item(4).Value.ToString()
            Grado = DataGridincidencias.Rows(i).Cells.Item(5).Value.ToString()
            Seccion = DataGridincidencias.Rows(i).Cells.Item(6).Value.ToString()
            observacion = DataGridincidencias.Rows(i).Cells.Item(7).Value.ToString()
            detalle = DataGridincidencias.Rows(i).Cells.Item(8).Value.ToString()
            reportado = DataGridincidencias.Rows(i).Cells.Item(9).Value.ToString()
            celular = DataGridincidencias.Rows(i).Cells.Item(10).Value.ToString()

            Try
                Dim iReturn As Boolean
                Using SQLConnection As New MySqlConnection("Data Source=162.214.204.218; initial catalog=carmelin_bdquinto; user id=carmelin_ricardo;password=Nevermind33.;")
                    Using sqlCommand As New MySqlCommand()
                        With sqlCommand
                            .CommandText = "INSERT INTO INCIDENCIAS (`DNI`,`APELLIDOS`,`NOMBRES`,`FECHA`,`GRADO`,`SECCION`,`OBSERVACION`,`DETALLE`,`REPORTADO`,`TELEFONO`) values (@DNI,@APELLIDOS,@NOMBRES,@FECHA,@GRADO,@SECCION,@OBSERVACION,@DETALLE,@REPORTADO,@TELEFONO)"

                            .Connection = SQLConnection
                            .CommandType = CommandType.Text
                            .Parameters.AddWithValue("@DNI", Dni.ToString)
                            .Parameters.AddWithValue("@APELLIDOS", Apellidos.ToString)
                            .Parameters.AddWithValue("@NOMBRES", Nombres.ToString)
                            .Parameters.AddWithValue("@FECHA", fecha.ToString)
                            .Parameters.AddWithValue("@GRADO", Grado.ToString)
                            .Parameters.AddWithValue("@SECCION", Seccion.ToString)
                            .Parameters.AddWithValue("@OBSERVACION", observacion.ToString)
                            .Parameters.AddWithValue("@DETALLE", detalle.ToString)
                            .Parameters.AddWithValue("@REPORTADO", "REPORTADO")
                            .Parameters.AddWithValue("@TELEFONO", celular.ToString)

                        End With
                        Try
                            SQLConnection.Open()
                            sqlCommand.ExecuteNonQuery()
                            iReturn = True

                            ''boton 3
                            Using _conn As New MySqlConnection("datasource=127.0.0.1;port=3306;username=root;password=;database=bdquinto;")
                                Using _comm As New MySqlCommand()
                                    With _comm
                                        .Connection = _conn
                                        .CommandText = "UPDATE INCIDENCIAS SET REPORTADO = @Reportado WHERE id=@Cod"
                                        .CommandType = CommandType.Text
                                        .Parameters.AddWithValue("@Reportado", "REPORTADO")
                                        .Parameters.AddWithValue("@Cod", DataGridincidencias.Rows(i).Cells.Item(0).Value.ToString())

                                    End With
                                    Try
                                        _conn.Open()
                                        _comm.ExecuteNonQuery()

                                    Catch ex As MySqlException
                                        MsgBox(ex.Message.ToString())
                                    End Try
                                End Using
                            End Using
                        Catch ex As MySqlException
                            MsgBox(ex.Message.ToString)
                            iReturn = False
                        Finally
                            SQLConnection.Close()
                        End Try
                    End Using
                End Using

            Catch ex As Exception
            End Try

        Next i
        MsgBox("Se sincronizo con exito todos los registros")

    End Sub

I AM A NEWBIE TO THIS PLEASE HELP ME WITH THIS PROBLEM, THANK YOU VERY MUCH IN ADVANCE