Vb + MYSQL + fatal error on query

Imports CrystalDecisions.CrystalReports.Engine
Imports MySql.Data.MySqlClient
Imports CrystalDecisions.Shared
Imports System.Configuration
Public Class Venta_Pales_por_Fecha_RPT
    Dim da As MySqlDataAdapter
    Dim ds As DataSet
    Dim p(7) As MySqlParameter
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand
    Dim READER As MySqlDataReader
    Dim con As New MySqlConnection(ConfigurationManager.ConnectionStrings("MYCNXMASKED").ToString)

    Private Sub CrystalReportViewer1_Load(sender As Object, e As EventArgs) Handles CrystalReportViewer1.Load

    End Sub

    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
        DateTimePicker1.CustomFormat = "yyyy-MM-dd"
    End Sub

    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
        DateTimePicker1.CustomFormat = "yyyy-MM-dd"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Me.Cursor = Cursors.WaitCursor
        Dim ds As New DataSet
                    Dim query As String
                    p(0) = New MySqlParameter("@FECHAINICIO", MySqlDbType.String)
                    p(0).Value = DateTimePicker1.Text
                    p(1) = New MySqlParameter("@FECHAFINAL", MySqlDbType.String)
                    p(1).Value = DateTimePicker2.Text
                    p(2) = New MySqlParameter("@NAVE", MySqlDbType.String)
                    p(2).Value = ComboBox1.Text
                    p(3) = New MySqlParameter("@PRODUCTO", MySqlDbType.String)
                    p(3).Value = ComboBox2.Text
                    query = "SELECT
                    Produccion.Producto,
                    Produccion.Producto_tipo,
                    Produccion.Formato,
                    Produccion.Marcado,
                    Produccion.Codigo_referencia,
                    Produccion.Particularidad,
                    count(*) as TOTAL_PALES,
                    SUM(Piezas) AS TOTAL_PIEZAS,SUM(Kilos) AS TOTAL_Kilos,
                    CONCAT(Produccion.Longitud, 'x',Produccion.Anchura) AS TAMANO
                    FROM Lote_Cliente, Produccion
                    WHERE (fecha_preparacion BETWEEN @FECHAINICIO AND @FECHAFINAL) AND Lote_Cliente.numero_lote_cliente = Produccion.Lote_cliente AND Produccion.Nave = @NAVE AND Produccion.Producto = @PRODUCTO
                    GROUP BY Produccion.Producto,Produccion.Producto_tipo,Produccion.Formato,Produccion.Marcado,Produccion.Codigo_referencia,Produccion.Particularidad,TAMANO
                    ORDER BY Produccion.Producto, Produccion.Producto_tipo,Produccion.Formato,TAMANO ASC,Produccion.Codigo_referencia,Produccion.Marcado ASC"


                    Dim dscmd As New MySqlDataAdapter(query, con)
                    dscmd.SelectCommand.Parameters.Add(p(0))
                    dscmd.SelectCommand.Parameters.Add(p(1))
                    dscmd.SelectCommand.Parameters.Add(p(2))
                    dscmd.SelectCommand.Parameters.Add(p(3))
                    dscmd.Fill(ds, "VENTAPALESPORFECHAS")
                    Dim cryds As New Venta_Pales_por_Fecha
                    cryds.SetDataSource(ds.Tables(0))
                    CrystalReportViewer1.ReportSource = cryds
        CrystalReportViewer1.Refresh()
        con.Close()
        con.Close()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub Venta_Pales_por_Fecha_RPT_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

But when i try with mysql client like HeidiSQL it´s long (2mn) but works fine. What i do check ?