Spanish Problems uploading an image from the gallery to a SQL database.

Sub ButtonOk_Click
    If EditTextNameIU.Text = "" Or EditTextMarcaIU.Text = "" Or EditTextDescriptionIU.Text = "" Then
        Msgbox("Nombre, Marca y Descripcion campos obligatorios !", "Fallo")
        Return
    End If
    If Main.Status = "U" Then
        Dim BufferU () As Byte
        If ImageViewIU.IsInitialized Then
            BufferU = CreateRequest.ImageToBytes(ImageViewIU.Bitmap)
        End If
'        Dim Pr2 As String
'        Pr2 = EditTextMarcaIU.Text.SubString(1)
        UpdateRecord(EditTextNameIU.Text,EditTextMarcaIU.Text, BufferU, EditTextDescriptionIU.Text)
'       
    Else
        GetSelectedRecord(EditTextNameIU.Text)
    End If
End Sub

Sub InsertRecord(Name As String, Marca As String, Blob() As Byte, Description As String)
    Dim cmd As DBCommand = CreateCommand("insertItem", Array(Name, Marca, Blob, Description))
    Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
    Wait For (j) jobDone(j As HttpJob)
    ProgressDialogShow("Espere porfavor...")
    If j.Success Then
        ToastMessageShow("Añadido con exito...!", False)
    End If
    ProgressDialogHide
    j.Release
End Sub

Sub UpdateRecord(Name As String, Marca As String, Blob() As Byte, Description As String)
    Dim cmd As DBCommand = CreateCommand("updateItem", Array(Name, Marca, Blob, Description,item_id))
    Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
    Wait For (j) jobDone(j As HttpJob)
    ProgressDialogShow("Espere porfavor...")
    If j.Success Then
        ToastMessageShow("Actualizado con exito...!", False)
    End If
    ProgressDialogHide
    j.Release
End Sub

 ImageViewIU_Click
    ImageChooser.Initialize("imgChooser")
    ImageChooser.Show("image/*","Choose image")
End Sub

Sub imgChooser_Result(Succes As Boolean, Dir As String, FileName As String)
    If Succes Then
        Dim b As Bitmap
        b.Initialize(Dir, FileName)
        
        ImageViewIU.Bitmap = b
        
        ImageViewIU.Top = t
        ImageViewIU.Width = w
        ImageViewIU.Height = h
        
        Dim Delta, Height, Width As Int
        If b.Width / b.Height > ImageViewIU.Width / ImageViewIU.Height Then
            Height = b.Height / b.Width * ImageViewIU.Width
            Delta = (ImageViewIU.Height - Height) / 2
            ImageViewIU.Height = Height
            ImageViewIU.Top = ImageViewIU.Top + Delta
        Else
            Width = b.Width / b.Height * ImageViewIU.Height
            Delta = (ImageViewIU.Width - Width) / 2
            ImageViewIU.Width = Width
            ImageViewIU.Left = ImageViewIU.Left + Delta
        End If
    Else
        ToastMessageShow("No has seleccionado ninguna imagen",True)
    End If
End Sub

(PacketTooBigException) com.mysql.jdbc.PacketTooBigException: Packet for query is too large (3228940 > 1048576). You can change this value on the server by setting the max_allowed_packet' variable.
(IllegalStateException) java.lang.IllegalStateException: WRITER