Intento la lectura mas alla del final de la secuencia

[ci2000]

Hola,

Al leer una base de datos de MySQL que tiene muchos registros, en determinado momento me da el mensaje de error "intento la lectura mas alla del final de la secuencia".

He notado que esto sucede cuando son muchos los registros leídos y las sentencias que están dentro del While/End While demoran el proceso.

Código:

Dim CadenaConexion As String = "Data Source=CCP;Database=bitacoras_resumen;User Id=root;Password=12345ABC;port=3306;ConnectionTimeout=90000"

Conexion = New MySql.Data.MySqlClient.MySqlConnection(CadenaConexion)
Try
            Conexion.Open()
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MsgBox("No se ha podido establecer la conexión con la base de datos.", MsgBoxStyle.Critical)
            End
End Try


SQL.Connection = Conexion
SQL.CommandText = "SELECT * FROM remitos ORDER BY fecha_hora_salidadescarga, remito, cliente, numero_viaje, kmtsmenor"
SQL.CommandType = CommandType.Text

dr = SQL.ExecuteReader()

While dr.Read()    'Aquí es donde da el error
  ... sentencias
End While
SQL = Nothing
dr.Close()
dr = Nothing

¿Hay alguna solución a esto?

Desde ya muchas gracias por las respuestas.
Saludos

[Malenko]

El read ese no tiene ningún problema, ni tampoco parece que lo tenga el resto del código. No harás un read() dentro de ese while, verdad?