Dim conn As New MySqlConnection(connStr)
            Dim cmd As New MySqlCommand
            Dim dsReturn As New DataSet
            Try
                conn.Open()
                cmd.Connection = conn
                cmd.CommandText = "InsertArticoliLinkMAgazzini"
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.AddWithValue("?iEan13", CInt(txEan13.Text)).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iCode39", txCode39.Text).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iBarcode", txBarcode.Text).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iDescrizione", txDescrizione.Text).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iDescrizioneSup1", txDescrizione1.Text).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iDescrizioneSup2", txDescrizione2.Text).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iEtichetta", txEtichetta.Text).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iDataIns", Now()).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iDataMod", Now()).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iStato", cbStato.EditValue).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iIdCategoria", CInt(lueCategoria.EditValue)).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iCosto", txCosto.Text).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iIdMagazzino", CInt(luemagazzino.EditValue)).Direction = ParameterDirection.Input
                cmd.Parameters.AddWithValue("?iGiacenza", CInt(txGiacenza.Text)).Direction = ParameterDirection.Input

                Using daLoader As New MySqlDataAdapter(cmd)
                    daLoader.Fill(dsReturn)
                End Using
                conn.Close()
            Catch ex As MySqlException
                MsgBox(ex.Message)
            End Try