query = "SELECT Totale, Contrassegno, Assicurazione, Luogo FROM SpedPost WHERE IdOperazione = @q1"
                    cmd = New SqlCeCommand(query, conn)
                    cmd.Parameters.Add("@q1", SqlDbType.NVarChar).Value = idop
                    read = cmd.ExecuteReader
                    While read.Read()
                        listino = CDec(read(0))
                        contrassegno = CDec(read(1))
                        assicurazione = CDec(read(2))
                        l = CChar(read(3))
                    End While