If Row("Firma").ToString = "" Then
                            cmd.Parameters.AddWithValue("@_Firma_Immagine", DBNull.Value)
                            cmd.Parameters.AddWithValue("@_Firma", DBNull.Value)
                        Else
                            Dim fs As FileStream = New FileStream(Row("Firma").ToString, FileMode.Open, FileAccess.Read)
                            Dim dati() As Byte = New Byte((fs.Length) - 1) {}
                            fs.Read(dati, 0, CType(fs.Length, Integer))
                            fs.Close()
                            Dim par1 As MySqlParameter = cmd.Parameters.Add("@_Firma_Immagine", MySqlDbType.Blob)
                            par1.Value = dati
                            par1 = cmd.Parameters.Add("@_Firma", MySqlDbType.LongText)
                            par1.Value = Path.GetFileName(Row("Firma").ToString)
                        End If